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1.0  INTRODUCTION 


At  present,  the  rapid  evolution  of  cutting  tools  and  the  problems 
subsequently  affecting  cutting  tool  selection  are  among  th*>  most  important 
topics  in  machining.  Improved  tool  management,  including  cutting  tool 
selection,  offers  a  practical  and  achievable  solution  to  the  constant  demand 
to  reduce  costs  and  Improve  productivity  in  today’s  competitive  manufacturing 
environment.  It  has  been  said,  "there  is  no  easier  leas  expensive,  or  faster 
way  to  achieve  productivity  and  product  excellence  than  by  applying  the  right 
cutting  tools  to  the  Job."  This  presumes  state-of-the-art  equipment  and 
trained  support  personnel. 

The  machining  process  and  accompanying  tool  wear  are  highly  complex,  with 
many  interrelated  variables  and  dynamic  reactions  occurring  in  a  very  hostile 
environment.  Experimental  studies  frequently  are  undertaken  to  test  workpiece 
materials  for  machlnabl 1 1 ty  and  generate  operational  data,  but  " maehlnabi 1 l ty ' 
is  difficult  to  define.  It  is  not  a  unique  material  property  which  can  be 
more  or  less  easily  measured  like  hardness  or  ultimate  strength,  as  it  cannot 
be  divorced  from  the  tool  or  other  cutting  conditions. 

Early  pioneering  work  by  F.  Taylor  (c.  1907)  established  a  machinabi 1 i ty 
relation,  an  empirically  derived  relationship  between  tool  life  and  cutting 
speed.  Now,  as  in  the  earlier  work,  the  nature  of  tool  life  before  tool 
failure  is  recognized  probablistic  rather  than  deterministic.  Thus, 
results  of  tool  tests  are  Influenced  by  rules  of  statistics.  The  variability 
and  scatter  of  tool  life  data  is  an  accepted  fact,  and  scatter,  itself,  varies 
depending  on  machining  conditions. 

Throughout  the  recent  decade,  and  particularly  during  the  past  4  or  5 
years,  there  have  been  major  advances  in  the  development  of  high  productivity 
machining,  cutting  tool  materials,  and  tool  designs.  New  tools  with  thin  film 
bonded  coatings  have  been  marketed  in  such  numbers,  with  suggested 
applications  for  a  wide  range  of  work  materials  and  conditions,  that  no  single 
data  base  or  timely  reference  for  machining  parameters  exists.  An  increasing 
need  for  reliable  technical  data  for  efficient  implementation  of  this  new 
tooling  was  apparent. 

Rock  Island  Arsenal's  long  range  goals  are  to  apply  the  newest  cutting 
tools  and  cutting  tool  materials  for  higher  productivity  and  lower  costs  and 
to  improve  tool  management  and  inventory  control.  This  project  set  the  basis 
for  meeting  those  goals  by  testing,  analyzing,  recommending,  and  applying  the 
latest  high-rate  metal  removal  tools  and  materials  to  turning,  establishing 
procedures  for  continued  testing  with  newer  tools,  and  creating  a  reliable 
tool  life  data  base  containing  verified  operating  parameters  for  coated 
carbide  single  point  turning  Inserts.  An  interactive  computer  program  useful 
in  identifying  and  ranking  specific  tool  grades  in  this  database  to  meet 
process  requirements  was  also  developed. 


During  the  cutting  tests  at  Rock  Island  Arsenal ,  the  workpiece  materials 
were  not  considered  as  test  variables  as  care  was  taken  to  use  workpiece 
material  with  very  similar  machinabi 1 1 ty  and  hardnese .  Care  was  exercised  to 
minimize  the  number  and  sources  of  other  possible  variables  during  the  entire 
study.  Throughout  the  project,  testing  was  carried  out  in  random  sequence , 
with  precautions  taken  to  ensure  observations  were  independent  of  factors 
other  than  the  prime  variables  bring  studied. 

2.0  EXPERIMENTAL  DETAILS 

2 . 1  Workpiece 

The  test  workpiece  materials  used  in  this  study  were  spectro-analysis 
verified  medium  alloy  steels.  AISI  414C  steel  (7  3/16  inch  outer  diameter 
X  1  3/16  inch  wall  X  36  inch  long)  hot  rolled  tubing  used  for  finishing  insert 
tests  was  heat  treated,  quenched,  and  tempered  to  HRC  31-33  (see  Figure  1). 
AISI  4140  steel  (same  dimensions  as  above)  and  AISI  4130  (8  1/2  inch  outer 
diameter  X  1  5/8  inch  wall  X  36  inch  long)  hot  rolled  tubing  used  for  roughing 
inset  tests  were  heat  treated,  quenched,  and  tempered  to  HRC  32-35  and 
HRC  29-30,  respectively.  These  steels  are  the  most  representative  materials 
for  the  majority  of  machining  at  Rock  Island  Arsenal,  and  the  hardnesses  range 
from  the  middle  to  the  upper  end  of  allowances  for  Rock  iBland  Arsenal 
products.  All  of  the  workpiece  surfaces  were  sandblasted  prior  to  testing  and 
were  free  of  mill  scale  and  rust.  Cleanup  cuts  were  made  on  the  outer 
diameters  of  every  tube  to  assure  that  each  test  insert  cut  uniform  hardness 
material . 

22  Tool 

The  sintered  carbide,  indexable  inserts  were  purchased  from  manufacturer’s 
distributors.  The  substrate  grades  conformed  to  the  U.S.  *C'  classifications 
group  C5-C8  for  machining  steel.  Twenty-two  different  grades  of  chemical 
vapor  deposition  (CVD)  coated  carbides  representing  13  manufacturers  were 
tested.  Each  grade  was  either  A120, -coated  or  multlcoated.  The  Al303-eoated 
grades  had  an  Ala03  exterior  layer  with  a  TiC  coat  just  below  it  at  the 
substrate  Interface.  The  multi-coated  grades  had  a  TIN  exterior  layer  with 
Ali03  as  an  intermediate,  and  a  TiC  or  TaC  coat  at  the  substrate  interface 


Five  basic  insert  geometries  were  studied,  1  i  s  *  ■»  d  here  in  order  of  both 
strength  and  lowest  costs:  round,  square,  triangle,  80  degree  diamond,  and  55 
degree  diamond.  Round  inserts  are  cheaper  than  squares  and  these  are  cheaper 
than  triangles,  etc.  Size,  which  is  determined  by  measuring  the  inscribed 
circle  (1C)  and  thickness,  affects  an  insert’s  strength,  no  matter  what  its 
shape.  The  strength  of  an  insert  is  a  measure  of  the  transverse  force  it  can 
withstand  before  fracturing.  Size  (1C)  was  chosen  as  a  means  to  differentiate 
between  those  inserts  applied  to  finishing  cuts  and  those  applied  to  roughing 
cuts  Cuts  were  finishing  or  roughing,  depending  upon  depth  of  cut  (DOC), 
i.e.,  with  inserts  having  an  IC  of  1/2  inch,  finishing  tests  were  performed  at 
a  DOC  of  0.060  inch,  and  with  inserts  having  an  IC  of  5/8  inch  and  3/4  inch, 
roughing  tests  were  performed  at  DOC  of  0,200  inch. 


4140  WORKPIECE  MATERIAL 


t 


HARDNESS  SURVEY  HRC-31  AVE.  TEMPERED  MARTENSITE 


Most  manufacturers  ofier  grades  listing  a  variety  of  configurations  or 
styles  of  molded  chi'  breakers.  For  an  equitable  comparison  between  vendors, 
the  recommendations  in  vendor  literature  were  followed  for  particular  chip 
breaker  styles  suitable  for  the  DOCs  and  feed  rates  of  the  tests.  The 
effectiveness  of  the  chip  breakers  was  examined. 

Although  not  considered  as  a  prime  test  variable,  the  corner  radii  of 
inserts  was  varied  to  examine  the  effect  on  tool  life  and  surface  finish. 

Toolholders  used  in  the  tests  had  negative  5  degree  back  and  side  rake 
angles,  regardless  of  insert  size  or  geometry.  Side  cutting  edge  rngles  or 
lead  angles  were  positive  15  degrees,  0  degrees ,  or  negative  3  degrees  and 
were  based  on  the  shape  of  Insert,  not  on  the  size  of  insert.  Holder 
designations  were  as  follows: 

Triangular  -  MTRNR  -  20-4 
MTRNR  -  24-5 

Square  -  MSRNR  -  16-4 
MSRNR  -  24-6 

80  degree  diamond  -  MCGNR  -  16-4 

MCGNR  -  20-5 
MCGNR  -  24-6 

55  degree  diamond  -  MDJNR  -  24-4 

MDJNR  -  24-5 

Round  -  MRGNR  -  16-4 
MRGNR  -  24-6 

2 . 3  Cutting  Fluid 

During  the  insert  tests,  the  cutting  fluid  was  not  varied.  The  fluid  used 
throughout  the  project  was  CIMCOOL  400,  a  synthetic  lubricant  marketed  by 
Cincinnati  Milacron.  It  was  diluted  1:25  with  water  as  recommended  for 
turning  applications  with  carbon  steels  where  cooling  properties  are 
important.  The  fluid  was  applied  to  the  backside  of  the  workpiece  tubes  and 
directed  6  Inches  ahead  of  the  cutting  tool.  The  flow  rate  of  the  fluid  was 
maintained  at  6  gallons  per  minute  to  assure  ambient  temperature  of  the 
workpieces  during  cutting.  All  cutting  was  considered  to  be  performed  'dry,' 
despite  the  adhering  film  of  coolant  on  the  rotating  work  material,  as  the 
t no  1  - workp i eee  Interface  was  at  no  time  flooded  by  coolant. 

2  <  Cutting  Conditions 

The  set  of  machining  parameters  used  throughout  this  study  is  shown  in 
Table  1.  Numerous  cutting  speed  tests  were  conducted  at  each  feed  rate 
setting 
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TABLE  1 


CUTTING  TEST  MACHINING  PARAMETERS 

TYPE  OF  CUT 

DOC  (in.) 

FEED  RATES  ( ipr ) 

SPEED 

RANGE  ( SFPM) 

FINISHING 

0.060 

0.012,  0.017,  0.020,  0.023 

350 

TO  700 

ROUGHING 

0 . 200 

0.020,  0.023,  0.027,  0.030 

250 

TO  600 

2.5  Tool  Life  Criteria 


Flank  wear  and  DOC  notching  both  contribute  toward  ending  useful  cutting 
life  of  sintered  carbide  tools.  During  this  study,  width  of  the  flank  wear 
land  (Figure  2.1)  was  the  predominate  tool  life  determining  factor,  although 
nose  wear  and  rake  face  cratering  (Figures  2.2  and  2.3)  occurred  as 
accompanying  wear  modes.  The  criteria  employed  for  establishing  tool  life 
(TiJ  were  flank  wear  limits  chosen  of  0.010  inch  average  or  0.020  inch  maximum 
for  finishing  cuts  and  of  0.013  inch  average  or  0.030  inch  maximum  for 
roughing  outs. 

2.6  Tool  Wear  Measurement 


A  Qaertner  toolmaker’s  microscope  was  used  to  measure  the  width  of  the 
flank  wear  land  (VB») ,  the  DOC  notch  (VB„) ,  and  nose  wear/def ormatlon  (VBC) . 
The  microscope  was  calibrated  using  steel  shim  stock  in  0.001  inch  increments 
over  the  range  of  interest  from  0.001  inch  to  0.030  inch.  The  microscope  was 
30X  power,  and  the  micrometer  drums  were  divided  in  0.0001  inch  units, 
providing  an  estimated  measurement  uncertainty  of  +0.0005  4nch. 

2 . 7  Equipment 

The  tests  were  carried  out  on  the  Warner  and  Swasey  30/60  horsepower 
turret  lathe,  saddle  type  chucker ,  style  3A,  model  3500,  (shown  in  Figure  3) 
dedicated  to  the  RIA  single  point  tool  testing  program.  The  machine  tool  was 
modified  with  the  turret  serving  as  the  tailstock,  and  this  was  fitted  with  a 
specially  constructed  live-center  bell  end  to  accommodate  the  workpieces.  The 
lathe  was  equipped  with  a  finite  step  variable  speed  spindle.  The  spindle 
speeds  were  calibrated  with  a  digital  phototach  covering  the  range  of  interest 
from  155  to  851  rpm;  this  was  done  at  both  30  and  60  horsepower  settings,  and 
under  both  'no  load'  and  cutting  conditions.  During  testing,  as  the  workpiece 
diameter  was  reduced  with  successive  cuts,  the  cutting  speeds  were 
predetermined  (by  calculation)  in  order  to  stay  within  +3  percent  of  the 
original  designated  cutting  speed.  Other  equipment  included  a  timing  clock, 
suitable  span  micrometer  calipers,  and  a  workpiece  surface  roughness 
comparator.  Surface  finishes  were  estimated  (visually  and  tactllely)  using  a 
Number  10  Standard  Ordnance  Finishes  Set,  manufactured  by  Universal  Machining 
Company . 

2 . 8  Tool  Life  Teat  Procedures 

Tool  flank  wear  was  measured  at  the  predetermined  sequence  of  intervals  of 
1,  1,  2,  2,  4,  4,  6,  and  6  minutes  until  the  average  uniform  wear  limit  or  the 
maximum  localised  wear  limit  was  reached. 

Inserts  remained  in  the  toolholder  while  the  measurements  were  made 
(Figure  4)  and  the  accumulated  wear  was  recorded  along  with  elapsed  time-in¬ 
cut  Individual  tool  wear  data  sheets  (Figure  5)  were  used  to  document  the 
test  data  and  record  assessments  of  chip  quality,  workpiece  surface  finish, 
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TOOL  WEAR  MODES 


ear  &  Cratering  on  Rake  Face  20X  2.3  Nose  Deformation  &  Cratering 


DEDICATED  TESTING  LATHE 


['001.  WEAR  MEASUREMENT 


TOOL.  WEAR  DATA  SHEET 


the  machining  parameters,  and  other  observations,  e.g.,  sparking  or 
screeching.  Wear  modes  were  recorded  for  each  Insert  edge,  as  was  the 
calculation  of  metal  removal  rate.  The  occurrence  frequency  of  wear  modes  was 
determined  for  each  grade-shape  combination.  Catastrophic  failure  such  as 
tool  breakage  was  not  found  to  be  a  problem  for  the  regime  of  tested 
parameters . 

3.0  RECORDING  AND  REPORTING  RESULTS 

Progressive  ilank  wear  measurements  versus  cumulative  cutting  times,  taken 
at  several  cutting  speeds  (V),  provided  curves  similar  to  the  examples  for 
finishing  cuts  :-,hown  in  Figure  6.  Plots  of  this  type  were  the  means  of 
determining  too ^  life  (TL)  for  a  particular  insert  grade,  shape,  and 
designation  ruii  under  a  given  set  of  machining  conditions.  Photo  data 
displays  (Figure  7)  were  made  to  document  the  test  results  for  each  insert 
cutting  edge  nested.  Speed  (Sp)  and  Feed  (Fd)  are  given  in  units  of  surface 
feet  per  minute  (SFPM)  and  inches  per  revolution  (IPR) ,  respectively.  Figure 
8  shows  a  typical  diagram  of  tool  life  versus  metal  removal  rate  (MRR)  for  a 
family  of  curves  plotted  for  different  feed  rates.  Noted  at  each  datum  is  the 
corresponding  speed  calculated  in  surface  feet  per  minute  and  the  assessment 

of  chip  quality  as  good  (Q) ,  fair  (F) ,  or  poor  (P) .  For  the  same  tool  life, 

higher  speeds  are  more  economical.  Consistent  with  Rock  Island  Arsenal 
production  practice,  a  10  minute  tool  life  to  achieve  0.010  inch  flank  wear 
was  selected  for  determining  the  desired  cutting  speed  (VlB) .  Figure  9 
exhibits  comparative  results  for  constant  feed  rate  tests  for  four  different 
tool  shapes,  all  of  the  same  insert  grade. 

A  complete  tabulation  of  test  results  for  both  finishing  size  and  roughing 

size  inserts  la  presented  in  Appendices  C  and  D,  respectively. 

4.0  EVALUATION  AND  DISCUSSION 

The  Taylor  tool  life  expression,  VT"  =  C  is  valid  under  many  conditions 
with  many  materials.  It  relates  speed  (V)  and  tool  life  (T)  through  a 
constant  (C)  and  an  exponent  (n) ,  the  latter  two  parameters  varying  with 
machining  conditions.  Values  for  C  and  n  can  be  obtained  graphically  from 
plots  of  empirical  data  such  as  those  shown  in  Figure  10.  Here  three 
different  shapes  of  inserts  of  the  same  size  and  grade  were  compared.  A  value 
of  the  speed  (Vi#)  for  10  minute  tool  life  can  be  estimated  from  this  type  of 
linear  log-log  relationship. 

The  test  data  obtained  during  this  study  showed  that  both  Al30,-coated  and 
multicoated  carbide  tools  behaved  in  accordance  with  the  Taylor  equation.  All 
experimental  data  was  reduced  using  linear  least  squares  regression  analysis, 
and  in  each  case  the  calculated  statistical  correlation  coefficients  were 
greater  than  0.92.  Table  2  displays  the  results  of  analytically  fitting  some 
typical  data  by  this  method.  This  table  conveys  how  variations  in  feed  affect 
speed  for  10  minute  tool  life  and  chip  configuration.  Table  2,  viewed  in 
conjunction  with  Figures  8,  9,  and  10,  permits  comparisons  of  metal  removal 
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CUTTING  TIME  (MIN.) 


PHOTO  DATA  DISPLAY 


LINEAR  LEAST  SQUARES  -  REGRESSION  ANALYSIS 
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SNMM  I  432  I  376  I  G  - 125+1  5.4  I  0.13 

CNMM  I  432  I  311  I  G-125  I  4.5  I  -0.14 


MACHINING  PERFORMANCE 

TNMM  -  432  MULTI-COAT 

FINISHING  CUT  DOC  =  0.060  In. 
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MRR  -  METAL  REMOVAL  RATE  (IN3/ MIN.) 


OBSERVATIONS 

MULTI-COAT  CUTTING  CONDITION: 

Finishing  Grade  Inserts  Dry,  Cool  Workpiece 

Single  Point  Turning:  WEAR  LIMIT:  0.010  in. 

Flank 
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FIGURE  9 


rates  and  surface  finish  of  the  workpiece  when  cutting  with  various  sizes  and 
shape3  of  inserts  Clearly,  the  results  (Figures  8  and  10;  demonstrate  that 
as  cutting  speeds,  and  proportionately  cutting  temperatures,  Increase  at  a 
given  feed  rate,  tool  life  will  decrease  regardless  oi  the  insert  size  or 
shape.  This  is  also  true  regardless  of  coating,  grade,  or  substrate.  For  any 
insert  shape,  as  feed  rate  and  MRR  increases.  t..e  speed  (V,a)  allowing  a  tool 
life  of  10  minutes  will  correspondingly  decrease.  The  influence  of  insert 
shape  on  V10  (see  Table  2)  was  the  same  as  the  order  of  geometric  strengths 
described  in  section  2.2.  Rounds  can  withstand  higher  speeds  than  squares  or 
triangles,  which  in  turn  can  out-perform  either  of  the  two  diamond  shapes. 
These  observations  were  valid  for  the  AL303-and  multi-coated  insert  grades  and 
for  both  finishing  and  roughing  sizes  (see  Appendices  C  and  D,  respectively). 
Depending  upon  substrate  class,  coating,  shape  and  style,  there  was  a 
significant  difference  of  Vla  among  some  vendors  for  the  tested  tools. 

For  corresponding  insert  shapes,  the  average  speeds  (Vl0)  at  TL=10  minutes 
differed  by  very  little  between  the  two  coating  types  for  finishing  Inserts. 
However,  baaed  on  fewer  test  results  for  roughing  size  Inserts,  the  multi- 
coated  grades  appeared  to  be  slightly  favored.  To  compere  the  performance  of 
non- coated  versus  coated  Inserts,  several  shapes  and  carbide  substrate  classes 
were  examined  and  documented  In  Appendices  C  and  D.  It  was  noted  that  In 
every  case  for  both  finishing  and  roughing  sizes  where  style,  shape, 
substrate,  and  feed  rate  were  the  same,  the  coated  inserts  could  be  run  at 
significantly  higher  speeds  (Via,). 

Machining  data  computer  program  with  two  example  runs  are  presented  In 
Appendix  E.  First,  18  finishing  size  Insert  grades  for  the  80  degree  diamond 
geometry  were  compared.  Using  the  same  given  set  of  machining  conditions,  the 
computer  program  selected  nine  Inserts,  which  satisfied  the  application 
specifications.  Examination  of  the  results  for  tools  No.  310  (a  multlcoated 
grade)  and  No.  318  (a  nonooated  grade)  of  the  same  size  and  substrate  class 
shows  the  distinct  advantage  of  a  coated  insert.  Insert  No.  318  has  a  TL  of 
5.0  min. ,  and  can  be  run  at  only  422  SFPM  for  a  MRR  of  5.2  in. ’/min.  This 
means  a  cost  of  $0. 23/in. 1  while  yielding  a  length  of  cut  of  23  inches  before 
a  fresh  cutting  edge  is  needed.  Whereas,  insert  No.  310  has  a  TL  of  11.7  min. 
running  at  500  SFPM  and  removing  6.1  in. ’/min.  at  a  cost  of  t0. 18/in. It 
produces  a  length  of  cut  of  63  inches  before  a  new  cutting  edge  is  required. 

A  cost  savings  of  28  percent  per  in,’  of  metal  removed  ..s  shewn,  along  with  a 
substantial  time  savings  by  not  having  to  index  the  insert  while  producing  a 
greater  length  of  cut.  Similar  comparisons  are  validated  for  roughing  size 
inserts  using  the  second  example  3een  in  Appendix  E. 

It  is  well  known  that  as  feed  rate  is  increased  workpiece  surface 
roughness  will  increase  Also,  as  cutting  tool  wear  progresses,  surface 
quality  and  chip  control  tend  to  deteriorate  These  patterns  were  both 
observed  during  the  teste  Also  in  the  tests,  an  increase  In  nose  radius  for 
most  inserts  enhanced  the  TL  at  a  given  speed.  The  increased  nose  radius 
Improved  surface  finishes  at  various  feed  rates.  Independent  of  shape,  IC, 
size,  and  coating  type  Theretore,  it  was  not  unexpected  that  round  inserts 


did  produce  the  best  surface  finishes,  frequently  even  wher  tested  at  higher 
feed  rates  than  the  other  shapes  Also,  round  inserts  showed  the  largest  10 
minute  tool  life  speeds  (V,«) 

Chip  control  was  independent  of  coating  type,  but  as  expected,  it  was  very 
dependent  on  feed  rates  Results  confirmed  that  Increased  feed  rate  increases 
the  percentage  of  good  or  fair  chips  over  poor  chips,  regardless  of  cutting 
speed,  shape,  or  insert  grade.  In  general,  manufacturer  technical  data  sheet 
recommendations  for  applying  varied  molded  chip  groove  styles  were  validated 
within  specified  ranges  of  feeds  and  DOCs  . 

5.0  TECHNOLOGY  TRANSFER 

For  effective  transfer  of  the  large  quantities  of  technical  data  from  this 
project  to  the  Rock  Island  Arsenal  Operations  Directorate,  various  means  were 
employed.  Individual  test  results  in  the  form  of  photo  documentation  were 
prepared,  e.g.,  Figure  7.  These  displays  represented  in  excess  of  700 
individual  tests  and  provided  rapid  visual  comparative  assessment  of  results 
The  photos  were  arranged  in  order  of  ascending  MRR  according  to  insert  grate, 
size,  shape,  and  coating  type.  Tabulated  data  summaries  (Appendices  C  and  f  - 
were  distributed  to  Rock  Island  Arsenal  Operations  Factory  and  Process 
Engineering  !>i " l s ions .  Included  were  the  Methods  and  Standards  Branch,  where 
inserts  are  selected  arid  machining  parameters  are  set;  the  N/C  Programming 
Branch,  where  machine  cutter  paths  are  generated;  and  the  N/C  Toolsetting 
Branch,  which  is  responsible  for  tool  inventory  control  and  carbide  insert 
ordering . 

To  foster  implementation  of  the  established  empirical  data  base,  a  user 
interactive  tool  selection  computer  program  was  prepared  (Appendix  E) . 

Figures  I',  and  12  outline  the  inputs  and  outputs  for  this  sorting  program. 

The  program  permits  the  entire  data  base  to  be  accessed  to  aid  the  factory 
process  personnel  In  selecting  a  specific  insert  best  suited  to  a  particular 
application  and  to  establish  operating  parameters.  Computer  calculations  of 
minimum  costs  and  maximum  production  rates  also  can  be  requested.  Information 
on  insert  stock  number,  availability,  and  optimum  tool  life  are  likewise 
provided  for  the  user  The  cutting  tool  data  base  program  1s  written  in 
Fortran  77,  with  versions  for  both  Prime  and  DEC  VAC  systems.  This 
Information  la  available  on  1/2  inch  magnetic  tape  to  DoD  users. 

To  reach  DoD  users,  some  of  whom  have  requested  the  data  and  data  base 
program,  an  End  of  Project  Presentation  was  held  on  November  6,  1986,  and  a 
paper  was  presented  at  MTAG  85  In  Washington,  DC. 

A  shop  floor  test  data  validation  plan  was  developed  and  adapted  to 
production  requirements  The  usage  of  26  top  performing  finishing  size 
inserts  (as  selected  by  Methods  and  Standards  personnel)  were  tracked  In 
several  cost  centers  using  numerical  controlled  machine  tools  for  12  months. 

At  the  end  of  that  period  it  was  noted  that  65  percent  of  the  insert  grade- 
shape  combinations  had  been  called  for  and  tried.  Interviews  with  N/C 
programmers  and  machine  operators  verified  the  correctness  of  the  established 
data  base  and  its  value  in  properly  applying  single  point  turning  or  boring 
too  1 8 


INPUTS  FOR  CUTTING  TOOL  SELECTION  PROGRAM 
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>  TIME  TO  CHANGE  INSERT  (MINUTES) 

>  COST/EDGE  (DOLLARS) 

l  LABOR-OVERHEAD  RATE  (DOLLARS/HOUR) 

MAXIMUM  PRODUCTION  (CUBIC  INCHES/MINUTE) 

FIGURE  11 


o 

z 

H 

< 

o 

o 


UJ 

»- 


UJ  Cn 


D  O 
Z  P 

5  3 

t  > 

UJ  UJ 
U.  DC 


UJ 

I- 


z  ± 


cn 

ui 


2  U 


y 

00 

3 

o 


(E 

UJ 

(/) 

D 

>■ 

00 

Q 

UJ 

o 

UJ 

0. 

cn 


o 

z 

( 

y 

00 

ZD 

O 

C/D 

tr 

< 


O 

Q 


D 

Ui 

I- 

< 

h 

CO 

UJ 

a 


ID 

a. 


cn 

h 

OS 

UJ 

cn 

z 

a 

UJ 

h 

e> 

UJ 

-I 

UJ 

cn 


cn  = 


or 

u 

oo 

Z 


> 

a: 

O 


UJ 


i  I 

5§“ 


^85 

ui  ^ 

Q  •  • 


UJ 

O 

O 

U 

UJ 

N 

cn 


>- 

ce 

H- 

UJ  UJ 
Q  2 
<  O 
00  UJ 
O  0 


cn 

Q 

UJ 


•±i 

o 

< 

u. 

(E 

D 


UJ  cn 

%  • 
cn 


z 

o 


o 

(E 


UJ 

H 

< 

CE 

_l 

< 

> 

o 

z 

UJ 

ce 

< 

K" 

UJ 

Z 


Q 

UJ 

UJ 

u. 

<  * 
b  X 

i_ 

Q  E 

,  UJ 

<  Q 

y  q 

CE  UJ 

Q.  C 
2  u 

UJ  UJ 
0- 


cn 

UJ 

cn 

O 

_j 

c 


Q 

UJ 

cn 

< 

OQ 


cn 

Z 

o 

CE 

u. 

O 

UJ 

H 

D 

CL 

z 

o 

o 


UJ 

u. 


O 

O 

h- 

CE 

O 


o 

u. 

O 

X 

h 

O 

z 

UJ 


td 

cd 

Id 

o 

lu 


UJ 

u. 


O 

O 

l- 

z 

I) 

z 

K- 

0. 

o 

£E 

o 


J— 

cn 

o 

u 


21 


As  a  consequence  of  this  project,  several  follow-on  test  programs  for 
machining  were  initiated  at  Rock  Island  Arsenal.  Turning  tests  have  continued 
using  next  generation  coated  carbides  and  allowing  for  performance  comparisons 
with  TiC/TiN  coated  inserts.  Plans  have  been  made  to  test  coolants  and  the 
newest  ceramic  and  cermet  tool  materials. 

In-production  testing  of  rotary  cutting  tools  has  been  underway  under 
another  project  for  more  than  a  year,  as  test  results  are  being  used  for  cost 
ef f ectiveness  comparisons  and  analyses  and  the  selection  of  upgraded  tooling. 
Algorithms  were  developed  which  quantify  information  needed  for  objective 
comparison  of  different  vendor’s  tools  and  for  tool  edge  preparations. 
Automatic  recording  of  measured  operational  data  enables  calculations  of 
productivity,  cost,  and  horsepower  per  rate  of  metal  removed  as  well  as  trend 
identification  with  wear  and  regrlnding.  Consequently,  certain  critical 
stages  during  a  tools’s  life  cycle  can  be  monitored  and  neoessai-y  corrective 
actions  adopted,  eg.,  if  reconditioning  steps  are  required  or  if  the  tool 
needs  to  be  replaced.  Selective  reduction  in  tool  inventory  should  result, 
along  with  increased  productivity  and  improv'd  part  quality. 

The  project  in  this  report  dev.ioped  reliable  data  on  tool  life  and 
process  parameters,  largely  for  production  planning  and  inventory  control 
purposes,  although  it  err,  oe  used  to  guide  the  lathe  or  turning  center 
operator  as  to  when  the  tool  should  be  changed.  The  second  project  mentioned 
in  this  report,  which  provides  automatic  recording  of  measured  operational 
data,  goes  a  step  beyond,  since  it  allows  operators  of  special  machining 
centers  to  see  the  effect  of  tool  wear  on  these  operational  data.  However, 
with  the  advent  of  cells,  the  situation  will  occur  where  there  will  not  be  an 
operator  assigned  to  each  machine  tool  to  monitor  Just  the  machining  on  that 
machine  tool.  In  that  case,  the  data  base  developed  in  this  project  is 
Invaluable  for  accurate  prediction  of  cycle  times  and  schedules  and  for  proper 
tool  management,  which  will  not  only  make  certain  a  fresh  tool  is  available, 
but  also  will  minimize  tool  failure  and  cutting  with  worn  tools. 

Nevertheless,  the  task  of  empirical  investigation  of  tool  life  for  all 
combinations  of  feeds,  speeds,  and  workpiece  materials  would  be  prohibitive. 
Therefore,  a  third  effort  is  underway  to  develop  at  least  one  automatic 
integrated  sensing  system  capable  of  accepting  data  on  part  dimensions  and 
surface  finish,  direct  measurement  of  tool  wear  and  cutting  forces,  and, 
accordingly,  exercising  limited  control  over  the  machining.  Not  only  could 
this  system  provide  protection  in  situations  r,Lere  reliable  and  extensive 
testing  had  not  been  performed,  but  it  could  also  perform  the  monitoring 
functions  that  would  be  normally  conducted  by  an  operator  if  an  operator  were 
assigned  to  the  machine  tool. 

Finally,  it  is  envisioned  that  data  from  all  these  systems  will  be  inputs 
to  a  custom  tool  management  system  that  will  ensure  high  percentages  of 
machine  cutting  time,  high  metal  removal  rates,  acceptable  parts  including 
first  parts  in  a  flexible  automated  environment  as  well  as  an  attended  one, 
providing  cost  effective  machining  and  low  tooling  costs. 


6 . *  SUMMARY 


A  reliable,  empirically  derived  tool  wear  life  data  base  for  both 
finishing  and  roughing  sizes  of  coated  carbide  Inserts  was  created.  A  menu 
driven  user  interactive  computer  program  was  developed  which  facilitated 
technology  transfer.  This  program  provided  the  means  to  sort,  rank,  and 
select  insert  grades  and  to  obtain  recommended  machining  parameters  applicable 
to  medium  alloy  steels  for  turning  and  boring.  A  shop  floor  test  data 
verification  study  was  carried  out  proving  to  be  adaptable  to  production 
requirements.  Algorithms  were  developed  permitting  quantitative  comparisons 
among  different  menuf ectursr ’ s  tools.  Benefits  have  been  derived  from  more 
universal  application  of  coated  carbides,  and  selective  reduction  in  tool 
inventory,  setting  of  optimum  machining  parameters,  and  improved  part  quality 
as  this  program  has  fostered  the  extended  and  accelerated  application  of  new 
and  upgraded  tooling  at  Rook  Island  Arsenal.  A  follow-on  testing  program  was 
implemented,  which  is  applicable  for  next  generation  coated  carbides, 
coolants,  ceramic  tool  materials,  and  other  projects  for  rotary  tools  and  for 
machine  tool  monitoring  are  supplementing  or  building  upon  the  reported 
effort . 
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APPENDIX  A 

SORTING  PROGRAM  FLOWCHART 
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PROGRAM  TOOL06 

c**************  FILE 

C 

0========================: 

c 

C  OGT  FITTER  SYSTEM  : 

C 

C  CETvFLTER  LANGUAGE  : 

C 

C  SYSTEMS  DESIGNER  : 

C 

C  VERSION /TATE  : 

C 


**********************  tool 


pr  re 


FORTRAN  77 

BILL  BIBVER,  MARY  CRnSHBTK 
G  /  01-JUL-198G 


************************* 


C 

r  FJRPOSE  :  SORTS  THE  TEST  TATA  rnLLEGTED  GN  aT’TITr,  INSERTS 

C  AmORDING  TO  CHIP  HWJ  IY  AND  SURFACE  FINIS” 

0  SELECTS  FEEDS 

O  err  PETES  SPEEDS,  ’-TTAL  REMOVAL  RATE,  LEMOTM  OF  OLT, 

0  AND  HOST 

O 


r* 

c 

r 

r 

r~> 

r» 

SUBROUTINE 

CALLED  :  1.  'TEN  SORT 

2.  F  TRI ANODE 

3.  F“SOUARE 

4.  F  0  DIA'FND  80 

5.  F  D  DIA'FND  55 

G.  F  ROUND 

7.  R  TRIANGLE 

8.  c  SOrjARE 

9.  R  c  DIA'TTT)  80 

10.  P  D  ojA'mn  55 

11.  R  RfTND 

*  y — 

r; 

r 

INPITS 

1 

Size 

of  Insert 

( 

finishing  or  roughing  ) 

r 

2 

Shape 

of  Insert 

( 

triangle,  square,  etc.  ) 

r 

3 

Finish  Required 

( 

micro- inches  ET  ) 

c 

4 

Chip 

CXiu  I  i  t  y 

( 

good,  fair,  poor  ) 

5 

Depth 

of  Oit 

( 

thousandths  of  an  inch  ) 

r 

G 

Feed 

( 

It  tt  M  *T  ) 

r 

a) 

User  specified 

C 

b) 

Program  scarchs  data  for  AI.L 

t 

Feeds 

r 

7 

Too! 

Li  rc 

n 

a) 

User  specified 

( 

minutes  ) 

c 

b) 

Length  of  Out 

( 

inches  ) 

c 

c) 

Surface  Speed 

( 

feet  /  min.  ) 

c 

d) 

Minimun  Oost  —  approx,  based 

on  user  supplied  data 

c 

i)  time  to  change  insert 

( 

minutes  ) 

c 

i i )  cos  t  /  edge 

( 

dollars  ) 

c 

iii)  labor  +  overhead  rate 

( 

dollars  /  hour  ) 

c 

e) 

'laximim  Produet  ion 

C 

r, - 

C 

C  OJTPUTS 

O  1  Inputs  Restated 

C  2  Identification  of  Selected  Inserts 

C  a)  Tool  or  inventory  number 
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c 

c 

c 

r- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r- 

c 

c 

c 

c= 


b)  Vendor 

c)  Grade  (  coating  ) 

d)  Geometry  &  Size  code 

3  Speeds 

a)  Surface  (  feet  /  minute  ) 

b)  Rotation  (  revolutions  /  minute  ) 

4  Metal  Removal  Rate  (  cubic  inches/  minute  ) 

a)  Based  on  closest  empirical  data 

b)  Computed  from  specified  depth  &  feed 

5  Length  cf  Cut  or  Tool  Life  (it  not  specified  by  user 

6  Cost  —  for  optimm  tool  life  (  dollars  /  cubic- inch  ) 

FILES  USED 


FILE  Wf 


EVPIRICAL  DATA  FUR 


TYPE  1  /O 


FjmirwrA 

F_SQUQATA 

FJD1A80EATA 

F_DIA55DATA 

F_RDUTWTA 

R_TRIDATA 

RJSQUQATA 

R_DIA80DATA 

RJDIA55DATA 

R  RGUDATA 


TRIANGULAR  INSERTS  IN  FINISHING 
SQUARE  INSERTS  IN  FINISHING 
80  DBG  DIAMOND  RISERTS  FI  FINISHING 
55  IBS  DIAUTID  INSERTS  FI  FINISHING 
ROUND  F1SERTS  IN  FINISHING 
TO  I  ANGULAR  INSERTS  IN  ROUmiNG 
SQUARE  INSERTS  IN  ROUGHING 
80  IBS  DIAMKD  INSERTS  IN  IWITUNR 
55  DBG  DIA'END  INSERTS  IN  ROUGHING 
ROUND  INSERTS  IN  ROUT?  IING 


DISK  I 

DISK  I 

DISK  I 

DISK  I 

DISK  I 

DISK  I 

DISK  I 

DISK  I 

DISK  I 

DISK  I 


C  PROGRAM  T/TGTO  SYNOPSIS 

C 

C  1. 

USER  SELECTS  THE  SIZE  AND  CFCMETRY  CF  GUTTING  TOOL 
C  OPEN  APPROPRIATE  DATA  FILE 

C 

C  2. 

c  user  anosE  priority  cr  sorting  (  cm?  cjality/  surfate  finish  ) 

G  USER  INPUTS  PARAMETERS  CF  GUTTING  OCNDITICNS 

C  (  DEPTH  CF  GUT,  FEED,  TOOL  LIFE  ) 

r 

G  USER  HAS  OPTION  TO  SPEC  I  TO'  FEED  <Tl  TO  ITAVE  TIE  FEED  OPEN 

g  (  SORT  THRCini  ALL  FEEDS  ) 

G 

C  USER  HAS  OPTION  TO  SPECIFY  TOOL  LIFE  IN  TEH'S  OF  MINUTES, 

LENGTH  <Jt  CUT,  SURFACE  SPEED,  MINIMI'’  mRT, 

C  CJI  mXIMTI  PimXTlCN 

C  (  I  AST  RIF.  OPTIONS  ARE  CONVERTED  TO)  "TTNUTES  ) 

0 

C  3. 

C  FOR  ALL  INSERTS  Wild  PASS  TIE  CIIP  QUALITY  AND  ST1RFACE 

C  FINISH  EBQU I  REGENTS.  A  SPEED  FTP,  TIE  PARA" UTTERS  C06EN 

C  IS  GAICULATED  AND  AIT  INPUT/OUTPUT  FATA  IS  SlOVN  TO  USER. 

C 

C  4. 

C  USER  MAY  RE-ENTER  PROGRAM  AT  4  POINTS : 
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q  o  n  o  o  o  o  o  o  n  o  o  a  o  o  o  o  o  o  o  o  o  o  o  o  o  ooooooonoo  o  o  o  o  oooijioooo  o  o  000 


*  RETURN  TO  BERINNINN  OF  PROGRA" 

*  SURFACE  FINISH/  CHIP  TOTALITY  OPTIONS 

*  FEED  OPTIONS 

*  TOOL  LIFE  OPTICUS 


CL06E  APPF4DPRIATE  DATA  FILE 
EXIT  PROC7W.I 


NAME  EEFINITICK  TYPE 


DEPTH  ARRAY  OF  ALL  POSSIBLE  DEPTHS  TESTED  RIAL 

SPEED  ARRAY  TO  SPEEDS  EASED  Os’  TOOL  LIFE  FOR  INSERTS  REAL 

FEED  ARRAY  OF  ALL  POSSIBLE  FEEDS  TESTED  TOM. 

TOLIFE  ARRAY  OF  TOOL  LIFE  (IN  MIN.)  FOR  INSERTS  TESTED  REAL 

FARR  ARRAY  CF  'fTTAL  RENDVAL  RATE  FOR  INSERTO  REAL 

IMRR  ARRAY  OF  M.  R.  R.  BASED  CN  USER  INPUTTED  VALUES  REM. 

RF!  ARRAY  CF  SPEEDS  ( IN  RPU)  FCR  INSERTS  REAJ. 

ULOC  ARRAY  CT  LENGTH  TO  OUT  FOR  USER  INPUTTED  VALUES  REAL 

LOG  ARRAY  OF  LENGTH  TO  GUT  TOR  TEST  PARAMETERS  REM. 

ASERT  ARRAY  OF  INSERT  DF.SCRI PTICNS  A79 

ANOTE  ARRAY  CF  CAUTION  FTO.  THE  INSERTS  A79 

ACHIP  ARR AY  TO  POSSIBLE  CHIP  OUALITY  TOOICES  ASO 

SFINISIICH  ARRAY  OF  OUTPUTTED  SURFACE  FINISHES  A10 

KSERT  ARRAY  CF  INSERT  INDFNES  TO  KEEP  AFTER  SOT  IT' 

KDCPTH  ARRAY  OF  DEPTH  TO  TOT  INDEXES  AFTER  STOT  I'T 

KFEED  ARRAY  CF  FEED  INDEXES  TO  KEEP  AFTER  STITT  I'T 

MAX  ARRAY  OF  INSERT  INDEXES  SORTED  BY  'KNELT’  'NR.R.  IN"* 

SF  INI  ST  I  ARRAY  CF  ALL  SURFACE  FINIS1  IES  TESTED  I'T 

I  FIN  IS1 1  ARRAY  OF  SURFACE  FINISH  INDEX  TOI  INSTTOS  I'T 

ICHIP  ARRAY  OF  CHIP  OUALITY  INDEX  TOR  INSERTS  I'T 

TL_1MIN  ARRAY  OF  1  MIN.  LOG  INTERCEPT  FTR  INSERTS  ITT 

TL  PIVR  ARRAY  CF  SLOPES  OF  TOG -PLOT  FOB  INSERTS  INT 


i*. BERTS  MAXI’ U1’  NUMBER  TO  INSETS  POSSIBI.E  FOR  ANY  GTOT'.  INT 

NSERTS  NU.1BER  TO  INSERTS  TOR  THE  PARTICUIAR  GFORTEY  INT 

'.PEPIHS  MAXIMA!  NUMBER  TO  DEPTHS  POSSIBLE  FTP.  ANY’  COD  ’.  I’T 

NDEPTHS  NU.1BER  TO  DEPTHS  POl  THE  PARTICULAR  TOO  ETRY  I  TO 

MFEEDS  MAXIMA!  NUMBER  TO  FEEDS  POSSIBLE  FCR  ANT  TOON  ITO 

NFF.EDS  NIABER  TO  FEEDS  TOR  THF.  PARTIOJLAR  GEOfTRY  INT 

AFINISHS  MAXIMA.!  NIA1BER  TO  FINISHES  POSSIBIX  FOR  ANY  TOON  ITO 

NFINISHS  NUMBER  TO  FINISHES  FOR  THE  PARTI  OTAR  TOOJ7TRY  ITO 

'■LHIPS  MAXIMA!  NIABER  TO  CHIP  FOSSIBLILITTES  FOR  ANY  TOO.!.  ITO 

NHIPS  NIABER  TO  CHIP  POSSIBILITIES  TOR  PART  I  CUT  AR  TOO.!.  ITO 

M<EEPEBS  'KXDUV!  NIABER  TO  INS  HIT  /FEED  CrAB'YAnO”?  POSS.  ITO 

KEEPER  NUMBER  TO  INSERT  /FEED  CTTBINATIONS  'CEpr  INT 

MAN  IT  WIT  FILE  NIABER  FDR  APPROPRIATE  OFOI.  DATA  FILE  ITO 

DFILE  LNIT  FILE  NAME  KR.  APPROPRIATE  GEOMETRIC  DATA  FILE  A1 0 

TOO!  NA'TO  TOOMETRIC  NA'IE  FTP  INSERTS  USED  IN  FWMATS  A1 5 


*********************************************************«*******«*********** 


o 

c 
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GIARACTER  AS!  APE 
CHARACTER  ARUN 
CHARACTER  APACE 
GIARAGFER  ASIZE 


10 


20 


30 


WRITE  (  1,  10  ) 

FORMAT  (///////, 27X,,M^HINI NO  FATA  KCGR.AV  , /// , 37X,  'FOR'  , // , 

A  27X, 'FINISHING  /  TTTJCJ'ING  SIZE' , //,25X, 'CGATFT  GARillOE 
A  TUTTING  INSERTS'  ,  //,35X,  ‘USED  IN' ,  / / ,  3 OX ,  'TUNING  fTPETRATCNS  ’  , 
A  //////, 26X, 'HIT  <RETTJRN>  TO  cnUiTNUE' ) 

READ  (  1,  '  (A1 )  ’  )  APARE 
WRITE!  1,  20  ) 

FORMAT!  /////, 30X,  ' EXPEREOTAL ' ,  / , 3  OX , ' - '  , //, 

A  'EQUIPMENT  —  Single  point  turning  using  a  30/60 

A  'horsepower  turret  lathe’,//, 

A  'CUTTING  CONDI'nGN  —  Dry  cutting  only  \.'ith  flu  in  ', 

A  'cooled  workpiece',//, 

A  'WCRKPIEGF.  MATETtlAL —  AISI  4140  steel,  hot  rolled  tubing  ', 

A  'for  finishing  inserts. ' ,/,22X, 'Meat  treated,  Quenched  *, 

A  'and  Tempered  to  HRC  31  -  33 ' , /, 1CX, 'AISI  4140  ', 

A  'A  4130  steel,  hot  rolled  tubing  for  roughing  inserts.', 

A  /,16X, 'Heat  treated,  Quenched  and  Tempered  to  !TT  31  -  34', 

A  //, 'IDOL  MATERIALS  --  CAT)  coated  carbide  inserts' ,/, 10\, 

A  'AIEK  :  ALfK  exterior  coating  with  TiG  coat  at  ', 

A  ’substrate  ’, /,27X, ' interface' ,/, 1  fix, 

A  'Milti  :  TiN  exterior  coating  with  ALCK  coat  inter’, 

A  'mediate,  ’ , / , 26X, 

a  'and  TiC  or  TaG  coat  at  substrate  interface',//, 

A  'TOOL  FOLDERS  --  Negative  5  degree  back  rake  and  side  ’, 

A  'rake  angles  with  SCEA  ',/,18X, 

A  'ranging  from  +15  degrees  to  -3  degrees  depending  on  ',/, 

A  18X,  'shape  of  insert  '  , //,26X,  ’ F>TER <RETURN>  TO  CONTINUE'  ) 

READ!  1,  '  (A1 ) '  )  APARE 
WRITE!  I,  30  ) 

FORMAT!  / / , ' TOOL  INSERT  SIZE  --  IG  =  1/2  in.  for  finishing  ', 

A  'cut,  TTSG  =  0.060  in.',/, 

A  21X, ’ IG  =  8/8  in.  or  3/4  in.  for  roughing  cut,  ', 


A 

A 

A 

»- 

v>. 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


'ITT  =  0.200  in.  ' ,//, 

'TOOL  WEAR  CRITERIA  --  Finishing  flank  wear  limits’, 
'  -  0.010"  ave,  or  0.020"  max.',/, 

23X, 'Roughing  flank  wear  limits  -  0.015"  ave,  ', 

'or  0 . 030"  mnx .  ' ,  // , 

'MEASURING  PrrCFTTJRr.  —  Tool  flank  wear  ’vns  ', 
'measured  at  predetermined  time',/,25\, 

'intervals  !min.)  until  weRr  limit  was  reached', 

/  /  /  ,  '  PERFOnr.ANGE  —  Tool  life  !min.)  was  recorded  ', 
'when  the  flank  wear  limit  was',/,17X, 

'reached,  and  the  quality  of  chip  control/', 

'form  were  judged  and’,/,17\, 

'given  a  good,  fair,  or  poor  rat ing. ' ,//,16X, 
RVorkpiecc  surface  finishes  were  assigned  ', 
'R!\t6(miero-  inch)  values ',/,  17X, 

'by  visual /tactual  comparisons  using  a  Std.  ', 
'Ordnance  Fi nishes ' , /, 17X, 
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D  U  C  O  O  O  O 


40 

35 


70 


45 

50 


&  ’Set  No.  10. ' , //, 16X, 

5c  'Wear  mode  patterns  and  oceurancc  frequency 

5c  'were  recorded  per',/,17X, 

5c  'insert,  as  was  the  calculation  of  metal  ', 

A  'removal  rate. ' , /.Q26X, 

<5c  'ENTER  <RETURN>  TO  CONTINUE'  ) 

READ(  1,  '  (A1 )  '  )  APACE 
WRITE  (  1,  35  ) 

FORMAT! ////////////, 10X, 'Select  Size  or  Insert  to  be  Used:', 
5c  // ,T30, ' 1  Finishing  (TO  =  1/2  in. ) ' ,/, 

<5:  T30,"2  Roughing  (TO  =5/8  in.  OR  3/4  in.)’,//, 


5c 

T30,’E  Exit 

frem  the  Program'  , 

Jill) 

READ  (  1,  ’ (A1 ) ' 

) 

ASIZE 

IF 

(  ASIZE.FQ. ’E’ 

1  . 

OR.  ASIZE. EQ.'e’  ) 

GOTO  99y 

IF 

(  ASIZE  .NE. 

•1’ 

.AND. 

5c 

ASIZE  .NE. 

’2’ 

.AND. 

5c 

ASIZE  .NE. 

rE’ 

.AND. 

5c 

ASIZE  .NE.  ' 

1  e  ’ 

)  THEN 

WRITE  (  1,  70 

) 

HTRM\T(//,10X,  'Only  Numbers  1  or  2  or  the  letter  E’, 
5.  ’  can  be  rend  as  answers.’) 

OOTO  40 


ELSE 

ENDIF 

WRITE  (  i ,50  ) 

FORMAT!  /////////, 10X, ’Select  Insert  Shape’,///, 
oc  T30,  '  1  triangular’  ,  /  , 

8c  T30,  ’2  square'  ,  / , 

<5c  T30, ’3  diamond  80  degree’,/, 

&  T30,’4  diamond  55  degree’,/, 

<5c  T30,  '5  round'  ,//, 

5c  T30, 'E  Exit  f ran  the  program. ',/ ///) 


For  Response  2 


READ  (  1 , ' (A1 ) ’  ) 

ASHAPE 

I F  ( 

ASHAPE.EQ. ' 1 ' 

.ANn.ASIZE.EO. '1 ' 

)  RAIL 

F  TRIANGLE 

IF( 

ASHAPE.EQ. ' 2 ' 

.AND. ASIZE. EQ. '  1 ' 

)  r,\u. 

F  SQUARE 

IF( 

ASHAPE.EQ.  ’3’ 

•AND.ASIZE.EQ.  '1  ’ 

)  call 

F  C  DI  ATON'D  80 

IF( 

ASHAPE.EQ. ’4' 

.AND. ASIZE. TP.  ’  1  ’ 

)  CALL 

F  D  DIAMOND 

55 

I  F( 

ASHAPE.EO. ’ 5 ' 

•  AX’D. ASIZE. DR.  ’  l  ’ 

)  CALL 

f  Raw 

IF( 

ASHAPE.EQ. '1  ' 

. AND. ASIZE. EQ.  ’2' 

)  CAM. 

R  TRIANGLE 

IF( 

ASHAPE.EQ.  ’2’ 

.ANn.ASIZE.EO. ’2’ 

)  CAUL 

R  SQUARE 

IF( 

/ASHAPE.EQ.  ’  3 ' 

.AND.ASIZE.EQ. ’ 2 ’ 

)  CAM. 

R  C  DIA.OND 

80 

IF( 

ASHAPE.EQ.  '4 ' 

.AND. ASIZE.  TP.  ’  2  ’ 

)  CAM. 

R  D  DIATOND' 

55 

IF( 

ASHAPE.EQ . ’5’ 

.AND.ASIZE.EQ. ’2* 

)  CAIJ. 

HJOUND 

IF( 

ASHAPE.ED. ’E' 

.OR.AS'IAPE.EO.  ’e’ 

)  (OTTO 

999 

Escape 

for  Response 

2 

IF( 

ASHAPE.NE.  ’  1  ' 

.AND. 

5c 

ASHAPE.NE. '2' 

.AND. 

5c 

ASHAPE.NE. ’3’ 

.AND. 
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<5c  ASHAPF..NE.  '4'  .AND. 

&  AS! JAPE. NE.  '5'  .AND. 

&  ASHAPE.NE. ' E '  .AND. 

&  ASHAPE.NE. 'o'  )  THEN 

VvHITE(  1,60  ) 

60  lOTlAT! //,  10X,  'Only  numbers  1  to  5  or  the  letter  T  onn  be 
<5c  'rend  as  answers.’,//, 

&  10x,'nive  it  another  try.’) 

ocnr>  45 

ELSE 

ENDIF 

C 

909  CALL  EXIT 


END 


SUBROUTINE  GEN_SOnT(  'UNIT,  DFILE,  GECT !  NY F  ) 

C 

c  Array  Dimension  Parameters 

PARA\TTER('BD1TS=25  ,'PF,PTUS=1  ,'FEEDS=4  , "FINIS1  IS=6  ,VTTI!PS=3 
oc ,  IF  INGH=6 , '  I  IFJEPE!  !S='  BERTS  *"  DEPT1  IS  •'•FEEDS ,  PI =3 . 14159) 

i’ 

(- 

C  Di-nension  ARRAYS 

REAL  DEPTfK  'DEPTHS  )  ,FEED(  'FEEDS  ) 

REAL  SPEED(  !\ KEEPERS  )  ,TDLIFE(  'KEEPERS  ) 

REAL  TK.R(  "KEEPERS  ),U'KR(  '.KEEPERS  ) 

REAL  !7TRR(  '-KEEPERS  ) 

REAL  CDST(  'KEEPERS  ) 

REA!.  RP,1(  .'KEEPERS  ),  ULOC(  'KEEPERS  ),  ICT(  'KEEPERS  ) 

rfai.  SFF',  incur,  nav,  tooliee 

REM.  TCI,  CPE,  RED 
CHARACTER*  8  0  AS  EXT  (  'BERTS  ) 

CHARVTTER*80  ANt7TE(  'BERTS  ) 

CHAT 1AOTER* 5 0  AO II P (  'CHIPS  ) 

CHARACTER*  10  SFINHSf  HI(  'FINCH  ) 

INTEGER  TTY)I,T),  TCDI/TT 

INTEGER  TOLOPT 

INTEGER  KSER!'(  '.KEEPERS  ) 

INTEGER  KDEPTTU  'KEEPERS  ) 

INTEGER  KFEED(  'KEEPERS  ) 

INTEGER  'AX(  'KEEPERS  ) 

INTEGER  SFINIS'K  \FINISHS  ) 

INTEGER  I  FINISH!  'BERTS,  .'DEPTHS ,  'FEEDS  ) 

INTEGER  iatIP(  'BERT'S,  "PEPniS,  'FEEDS  ) 

REAI.  TL_DRN(  'BERTS,  'PEPPIS,  'FEE'S  ) 

REAL  TL_PWR(  'BI-RIB,  'DEPTHS,  'FEEDS  ) 

CHARACTER*  1  PRICK ITY,  DEPOPT,  FEDORr 
aiARATTER*l  A PACE,  CD STOP!',  /VT TNT 
atARVTER*15  GF/TH  NA'F 


a  IAEA  7TEE*  1 1  DFILE 


r. 

C  *****  Rend  mTA  f ran  file 


OPEN(  ''UNIT,  FILE  =  DFILE  ) 

c 

C  *****  Skip  eomnent  lines  in  data  file  with  a  READ  and  do  nothing  T/TX’ 
r 

DO  10  1  =  1,11 
10  RFAO(  .'UNIT,  ’  ( II)  1  ) 

C. 

<g  ************** 

C  Read  paramct  r i e  variations  used  in  tests 

G  Read  Data  Parameters  to  be  used  for  the  particular 
C  geanetrie  Data  file  being  read  from. 

c  *************** 

RFAD(  MJNIT,*  )  NSERTS,  NOEPTHS,  NFEEDS,  NFINISHS,  NflllPS 
NPINTJI  =  NFINISHS 

IF  (  NSERTS  .ED.  0  )  THEN 
WRITE  (  1,  15  ) 

15  KV.:dAT( ////////////,  10X, ’TIDLE  WtE  NO  INSERTS  TESTED  IN', 

<5c  '  11  AT  GF/TYUTTRY  AT  T  IIS  TIME.  •',//, 

&  20X,  '  PI  EASE  TRY  another  rarpErny.  ’  ,  /////  , 

&  2 OX,  ' IETER  ANY  KEY  TO  nntTTNUE'  ,//) 

RTAD(  1,  '  (Al)  *  )  APAfiE 
O/fO  0999 
ELSE 
F.NDIF 

c  *****  Skip  comment  lines  in  data  file  with  a  REAP  and  do  nothing  imp 

DO  20  1=1,3 

20  1!TAD(  ‘UNIT, '(II)'  ) 

r 

I  •  ***#***********: 

G  I’ead  DEPTlIs  of  cut  tested  (  thousandths  of  an  inch  ) 
o  PTE:  nuiUcr.s  must  be  entered  in  the  DATA  file  fran  the 
O  smallest  INCREASING  to  the  largest. 

(•  **************** 

i  1 

REAP(  MN1T,*  )  (  DEPTlK  I  DEPT!  I  ),  l  DEPTH  =  l.NDEPTHS  ) 


O  *****  Skip  cannent  lines  in  data  file  ■  vi  t  h  u  READ  and  do  nothing  I  mi’ 


no  30  1  =  1,;; 

30  READ(  ’UNIT,  1  (11)  ’  ) 


*  ***♦*•¥*******-»:  * 

Read  FEED  variations  (  thousandths  of  an  inch  ) 

NO  IT.:  numbers  must  be  entered  in  the  DATA  file  fran  the 
a  nu 1  lest  I NO  LEASING  to  the  largest. 


**************** 


uag(  mkit,*  )  (  ffit>(  n-T.m  ),  irrrn  =  i.NFFms  ) 

C  **',‘**  Skip  eu  invent  lines  in  data  file  with  a  PJ'AD  and  do  nothing  I.nr 

C' 

m  40  I  =  1,3 

40  'u;\n(  Mr 3 it,  1  ( i  i  ) 1  ) 

r 

-■>  **************** 

o  lead  surface  FINISNs  obtained  fran  tests  (  micro- inehs  ) 
o  'J7fF:  numbers  must  l-e  entered  in  tiie  !V\TA  file  fran  the 
snnllest  lNGRPASINf  1  to  the  largest. 

(g  ***********  *  *  *  *  * 

r* 

!tlAO(  MIN  IT,  *  )  (  SFIMIS'K  JFINISU  ),  JFINISU  =  1,NFINJSU  ) 
o  *****  Skip  earment  lines  in  data  file  with  a  TFAO  and  do  nothing  I/'Y" 

no  da  i-i,7 

oU  REAJ>(  '  UNIT,  '(U)’  ) 

I  -  ****************** 

Heud  surface  FINTSHS  for  output  later  in  program 
O  NTSF:  Finishes  trust  be  entered  in  the  FATA  file  from  t he 

stillest  ! l-PUPAS INC,  to  the  largest. 
****************** 


h)  GO  1  =  1,  NT  IN  FT  IS 
GO  UFAD(  'UNIT,  '(10X.A10) '  )  SFINlSlHU  I ) 

*****  Skip  cor, merit  linos  in  data  file  with  a  UTAH  and  do  nothing 

r 

1X0  70  I  =  1,3 
71)  PlADi  MJN'IT,  '  (  U)  ’  ) 

(  ' 

''  *#*  +  *****  +  ***♦.  *  * 

r  ‘load  Olll'  qualities  obtained  fran  tests 

>'  ’  'GPL':  descriptions  of  GUI’S  must  be  entered  in  the  DATA  file  l'ran  t‘ 

b’dST  proceeding  to  the  VO  1ST. 

**************** 

0 

rt&vX  •iimvibo)1  )  (  aoiip(  .miip  ),  janp  =  i,ngiiit.  ) 

n 

C  *****  Skip  conment  lines  in  data  file  >vi  tli  a  III  Ah  and  do  nothing  I/O: 

if!  80  I  =  1,3 

Oil  i’J’AjX  UNIT,  ’  ( 1 1)  •  ) 


O  *******  .VaifitTU  choice*  of  insert  SHAPE 

Atrrr.f  1  ,*  (//'//////////////////////)  ’  ) 

U'UTF.f  1,00  )  /.'SOU'S ,  r,i VT.iJ4V.fr* 

■jQ  in  VATl  // , SX,  1  Program  wi  if  sear.-h  TXVl'A  for  the  ’ 


BIO 


Op. 


inserts  tested . ' ,//) 


&  12,  ’  '  i Alf) ,  1 

W 

H  ********  ,tead  INSERT  icient  i  f  ical  ion  lines 

O  ***********  (  2  lines  of  7'j  spaces  for  each  insert  ) 

-> 

'  y 

no  too  ins ere  =  i  .tsikis 

read(  matt,  ’  (A7s)  •  )  aseetI  insert  ) 
riiad(  ••unit,  1  (A70) 1  )  anotec  insert  ) 
ioo  continue 

K  =  1 

110  DO  130  V  =  1  .NSIOTTS 

V”vITi:  (  1 ,  '  (A70) '  )  ASP.  m  M  ) 

IF(  (  r>’  -  K*15  )  .GE.O  )  WIN 

iveitiK  1,120  ) 

120  rOi!"AT(  /, 25X, 'Enter  any  key  to  continue  ) 

is  =  K  +  1 

READ(  1,’(A1)'  )  APACE 

1 1X101 F 

100  OONTINTJE 

WRITE  (  1,120  ) 

READ  (  1 ,  ’  (A1 )  1  )  APACE 

C 

C  *****  Skip  eonmont  lines  in  data  file  with  a  READ  and  do  nothin;;  I/DE. 

no  140  I  =  1,40 
140  REAO(  vLNIT,  ’  ( 1 1 )  ’  ) 


C  *****  Retd  empirical  RESULTS  fron  tests  into  data  ARRAYS 

DO  170  INSERT  -  1,NSENTS 
READ!  MAT!’,  1  (11)  •  ) 
no  ioo  i! ow i  =  l.ndeptus 

no  ioo  moo  =  i.t-eeds 

too  ETAD(  ''UNIT,  ’  (Tol  ,2  1 10,21-10.4) 1  ) 

a  iFivisiK  inset,  ideptii,  ifhed  ), 

A  IOHP(  INSET,  IDHPTH,  I  Fill  3!  ), 

A  TLJMINl  INSF'T,  I  DEPTH,  I  FEED  ), 

A  TL P,\R(  INSET,  I  DEPTH,  I  FEED  ) 

100  CONTINUE 


170  (detinue 


************ 


’ L'nu  2  -  Choice  of  PRIORITY 


************ 


IrfO  V.'tlTlK  1,100  ) 

100  IYXAWTf  //////////,  10X,  ’Oioo.se  FIRST  Priority',///, 
A  TJ0,'F  surface  Finish',//, 

A  T3U,'Q  chip  'duality' ,///////  ) 


************ 


lill 


•  lesponso  2  -  PPIFftlTY 

************ 

NEATK  l ,  1  ( Al )  1  )  FMOPFIY 

if(  iruainY.ir:. 'F' '  r  )  tmim 

*  *  *  *  p  **********  * 

"  l '.punch  fur  1st  priority  -  .surface  Finish 

ijiui  oF  .Ask  for  require'!  stir  face  Finish 

'  *******  :js  *  *****  *  * 


V'UTF.(  1,210  ) 

lO:F'AT(  ////////////////////,  nr.'Friority  1  -  s>u 

’  Fi  n  i  sh '  , // / ,T20 ,  'Type  in  surface  Finish  you 
’have  in’ ,//,  Hu,  ’  licro-inehs  ’til’,//////)  ) 
P.EAlX  1 ,  *  , Dili.  -  EUU  )  1!  Alfa  I 


*****************  * 

Find  lAUTEST  finish  nunfier  in  Fata  file  LESS  fl L-Yl  or  equal  to  t'ait 
’OPE:  m  toilers  mist  be  entered  in  the  FATA  file  from  the 

nut i  lest  INEXKASINC;  to  the  largest. 
****************** 


'  i  r  i  i 


MTUSH  -  0 

rn  22u  jeinisii  =  1  .wikis- b 

I F (  FINIS!!. GE . SF I •!  1  S'  I  (  JPINISII  )  )  KFINISH  =  .IP IN  ISP 
cTvrmuF. 

1F(  FT  I  NFS!  I.  IP.  U  )  KFINISN  =  1 

•  :utf.(  1,2:10  )  finish,  sfimisihK  ftinish  ), 

SF  IN  IS: !(  Fa' INISN  1 

i-nrv\T(  //////, 2iiX, 'You  asked  for  u',FG.O,'  micro- in"' 

'  f  i  n  i  sh.  '  , // ,  2  OX,  'Sur  face  Finish  data  from  test  ros'dtn', 

'  that '  ,  / ,  20X,  '  are  closest  to  your  specification', 

'  are  : '  , // ,T13  ,A10 ,  1  mi  cro- inches  !rF  ( 

'cot:  parcel  to'  ,  10,  '  l-t’  l»  )',//,  lo\,  '.All  results 
'that  follo-v  .-.■ill  be  based,  on  this  value.',//  ) 


*  Jt  *  *  *  *  *  a:  *  * 


Fnu  -IF  .Ask  for  acceptable  chip  Quality 


********* 


v.UITU(  1 , 2 G u  ) 

fo.r.vvri  '/,  I  OX,  'Priority  2', 

//,  10X, 'Spec  i  fy  l owes  t  eh i p  *"}ua lily 
'you  c>m  l  ive  \vi  tit.'  ) 
if)  2 1  j  U  JO  I  IP  =  1,  NO  Ill’S 

1,  '(T2U,AP0)  '  )  AO!IP(  JOIIP  ) 

FO'IP  -  0 

NJAX  1,  '(  I  l)  '  ,  IMF  -  2-10  )  KOdi’ 

*  Ft  i-'  hip.  ft.  i  )  roni1  i 
i  f (  xon’d.Frr.Kom’S  )  in  up  =  n-.ups 

!  V  1:10.  NE.  1  ..Vi!  >.  I’li’.I.FNi'lNPS  )  OMEN 


RJ 


o  c 


270 


yutk(  i,2?u  )  .\niiP(  ktiip  ) 

H  il'.'AT(  //////////, 10X, 'Only  Jain  for  which 
A  'chip  ‘Quality  equals  or  exceeds 

oc  // ,T20,A50, // ,  1  OX,  '>vi  1  ]  be  considered. 

ELSE 

I\2’JTE(  1 , 2b 0  )  NO  1 1 PS 

200  PKU\T(  //,10X, 'Only  numbers  1  to 

X  12,'  nan  be  rend.', 

&  // ,20:;, 'Please  try  again.',//  ) 

GJiO  240 

I  ::4i  >1 F 

FI.SE 

IF(  PlilO’J'IY.EO. ’.V  .OF.’.PniO'H'lY.EQ. 'q'  )  TBn 

C'  I***************.* 

C  branch  for  1st  priority  =  chip  Quality 


Menu  30  Ask  for  required  chip  Quality 
***********  *  *  *  *  * 

\.rtITE  (  1,  300  ) 

rai\k\T(  ////////////////no,  'Priority  1 ' , /// ,T30 , 
'Specify  chip  Quality  you  must  have:',//) 
DO  310  IOIIPS  =  1,  MO  1 1  PS 

QUITE  (  1,  '  (T20 ,A50 ) '  )  AOUP(  10111^  ) 
icanp  =  o 

IIEAI)  (  1,  '(II)',  EKE  =  290  )  KOIIP 
IF  (  QUIP. FT.  1  )  KOIIP  =  1 

if  (  koi i p.ar. no-iips  )  koiip  =  no ii ps 

IF  (  KOI  IP.  OF.  1  .AM).  KOilP.LE.unilPS  )  THEM 
QUITE  (  l,  270  )  AO !IP(  KOIIP  ) 

ELSE 

MOTE  (  1,  280  )  KOIIP 
CniO  200 
KM)  IF 


************ 


(  '  Menu  4Q 


.-Ask  for  acceptable  surface  finish 


************ 


QUITE (  1,330  ) 

iOr.’ATf  //,T10, 'Priority  2'  , ///,T20,  'Type  in  ', 

'surface  finish  that  would  be  acceptable  in' 
//,T20,  'micro- inches  ITS’,//) 

JlEAJ)  (  1,  *,  HEX  -  320  )  FINISH 


**************** 


Find  MOSEST  finish  number  in  data  file  to  that  specified. 
ini’E;  SPIN  IS!  Ci  must  be  read  into  appropriate  DATA  file  from 
the  smallest  to  the  largest. 


**************** 


•io 


j 


ir  (  riNisn.i,L.srr:i  ■.  (  1 )  )  '’nr:-: 
kfinish  =  1 
mm  ooo 
i:i,°k 

ir  (  Frnsu.nu.sn- nfinisus  )  )  'pifn 

KFINIiv!  - 
CD.O  350 
FJ*SF 

130  340  1 1- INIS'!'  -  1  ,NTINTISflS-l 

if  (  misii.r;-.  vinisiK  ifinisiis+i  )  .m. 

n:;isi.r  ".fffiisik  if  ini  st  is  )  )  mm  3-;o 
IF  ((  :>!•  PUS?!'  imNlSMSH)  -  FINISH  )  .I.F.. 

(  FINIS"  -  SFlNISHl  IFIMIS'JS)  )  )  'Hi!?! 

KFINiFIl  •  I!  14 1  S' IS  *  1 
l.LSK 

KT1NISM  ;  HT.ISI’S 
I  MDI  F 

■:  uji'inuk 
imdif 
impi  r 

v’mti:  (  i.  23 u  ;  i-t;i  NFiNis'nK  kfinism  ), 
si  nr  :u  kvimisii  ) 


-»***■**  r.>euno  frcn  v.t r.  •  ;xmse  to  "V.-iiu  2 


WITF.t  1  ,  ■'•'•0  ) 

,1)  p?r-1AT(  10X,  ’f>iiy  1 1 ; < ■  letter  F  or  Q  can  t.o  read 

'as  i  response.',//, 

I  OX,  '  I'!  "  ;  s  <  •  try  aaain.',//  ) 

'.nm  joG 

fnuif 

'M'lF 


.;■!.*■»********»,.*** 

"surface  I  inish  -  f*»:  •  :>  \u-il  j  ty"  Priority  branching- 


. i  i !ii  5  A  ;K  I  vjr  I  A-pll;  Of  'Oil 

******  +  *  *  *  <  *•  *  *  *  * 

7 u  v,nrn:(  1,200  ) 

au  M>'rAl'(  //,20\,  '•I'ytA;  t  i . '  nth  Of  On  you  want  in 

//,2f>K,  ’tiiousun  'tbs  of  an  inch.’,//, 

UX,  ’  (  Finish;  :-  -  U"  -  0.000"  :  Fon.rh  i  ny  , 

’  o.ou.r  /  ) 

ti-Vv!  •(  l,*,  Is ’Jt  -  370  J  ■  n  • 

*  *  *  ■  *  *  *  r-  *  *  *  *  *•  *  * 

Find  the  < 'll .«!•:!-; I’  ’WM  in  the  data  file  to  1072  specified, 
sot.-  -  'Wilis  Mist  he  :■■■  d  ice,  I v\TA  f ran  the 

snal  jest  r>  I  to  the  largest . 

*  It  +  *  i-  *  t-  *  *  *  *  *  *  r 


b!4 


390 


-too 

410 


ot 

oc 

*- 

A 


1 F (  rnr.u:.nrPiH(i)  ) 
.ID1TTH  -  1 
(DR)  4U0 


else 


ir(  IFr.riE.OFP;H(  \'i  IS  )  )  THIN’ 

jiTFni  =  sn;  jhhs 

UTD  .00 


else 


eo  390  i  depth  -=  i  ,:;dff:hs  -  i 

IF(  irT'.dr.ni-mU  IDFFni  +  1  ) 
.ai.iTr.i.v:.DFPni(  l  depth  )  )  thin 

07IT)  390 

LHDIF 

if(  (  itp<h(  ioepth  +  i  )  -  urn  ).le. 

(  nr  -  nii>ni(  i  depth  )  )  )  the 

JDEPIH  =  JDIPTH  +  1 

ELSE 

J  DEPTH  -  IDEPTH 

ehdif 

owtinue 

endif 

C4DIP 

\,”.ITE(  1,110  )  ITXF/1000 .  , T 'iPTTK  J DEPTH  ) / 1000 . 
prjm\T(  //,15X, 'You  asked  for  u',F8.3, 

1  inch  Depth  Of  Qit .  '  , 

.//,20X,  'The  DEPTH  for  Mi i eh  test  results  arc 
'ava i labl o ' , 

/ , 20X, '  that  is  closest  to  your  request  is 
// ,T25 ,F10. 3, '  inch', 

/ / , 1 5X , 'All  results  that  follow  will  be  based' , 

'  on  this  v.il  ue .  '  ,  /  /  ) 


**************** 


denu  7  -  TTioi eo  of  Feed  OPFKTIS 


*  *  *  ************* 


•120  VHITE(  1,430  ) 

■130  Ft’ lit' AT (  //,10V,  <n loose  Feed  OPTION”  , /// , 

&  T20,'l  User  SPECIF  I  ED  Feed' ,//, 

TOO, '2  All  available  Feed  DATA  that  satisfy', 

A  /,T20, '  surface  Finish  A  chip  ’"luality  criteria', 

A  /, ITO, ’  will  be  considered. ' ,//  ) 


*  ************* 


ivosponso 


o-i  OPTION 


**  *********** 


E1'AD(  1 ,  ’  (A1 )  '  )  FEinP'f 
1  F(  FEDOPIEBT  'i '  )  TUN 


****4-******* 


Branch  for  User  SPirUFIt-J)  l-vd 
Wm  8  .Ask  for  FUR'* 

*****«■**  +  *►.; 


4-10 

‘t  u  U 


6l 

■X 


'viini.f  i,4oo  ) 

K}v.VAT(  ////////•'//.  10’.,  ’Feed  Option  1  -  User  Spec  i  f  i  or 

’Feed 1  , /.'/ ,TiO ,  "‘ype  the  FFJvD  you  unn t  in1,//, 

T25 ,  ’  tl.ou~tn.it  lis  of  an  inch  /  mv.  1 , //////  ) 
iUl\D(  l,*,  Effi  --  4-Ui  }  p-:;t 


id  *  *  *  if  ♦  *  *  «  +  *  *  -i*  * 

Find  the  CLRSFST  FFF.0  in  the  d.. ! n  file  to  FEU  specified. 
Note  -  FEFJ)s  nust  be  rend  inti,  HATA  from  the 

snallest  I>K'TAFIN(4  to  the  largest. 
***  +  ****•***  +  *  * 


if(  Fnn.i.F..FF.m(i)  i 
JFEED  =  1 
0)10  470 

ELSE 

if (  Fin. he. it.!'! iv  ;n:rj6  )  )  tmfn 

JFL'FO  =  MEET  A 
OT;n  470 

Kr.SE 


IT) 

4  7.0 

1  FK 

•2)  -  1 , FFI'KFJFS 

-  1 

i. 

r  ( 

FFD.ar.Fii-nt 

I  FEED  + 

1  ) 

t . 

OJk 

t 

.  F*r,.  IJF.FKf-X)( 

1 FEED  ) 

)  T1  ?ivK 

i/hn  4b0 

1 

NO  I 

i: 

1 

F( 

i  eeid (  ifeed 

'  +  1  )  - 

FED  ) 

Os 

1  17  .0  -  FEFJ)( 

IFF.FD  ) 

)  )  TUF 

j  ffi/'1  inn: 

0+1 

i  ■ 

1  >  i . 

iff  it)  -  iffj: 

;  > 

400 

rrv 

V\‘?: 

END  I F 

04DI  F 

47o 

'\»tITE(  },4oll  ) 

FFTU 

1  00 

i!.,i:r.rn(  jrn: 

i  )/10UU. 

480 

Rir’ATf  / / ,  1 3X. 

,  ’  You 

tiv 

ked  for  :U,r8. 

o 

J, 

i  > ;  ■  ■ 

h  ‘  rev.  Feed. 

\ 

y 

6' 

7 / , 2  UX . 

,  ’The 

f  i: 

ifi  for  '.m.  ich  t 

ost  resu 

1  tS  UI'C  1  , 

6’ 

’  ava 

il.s 

-  ;  .  1  '  j 

w* 

/,20X 

,  ’  lh 

: { 

i  >  closest  to 

your  request  is  '  , 

,  /  ,4  "20 

.  1:  *  ■ 

t 

■ nch  /  ! ev . ’ 

y 

;  /  ’  * 

'  i  *■■■**■ 

.  ;  A  i  1 

re 

. , .  i  i  t :  ( f : : ;  t  f  0  : 

lo.V  v.i  1 1 

be  hosed' 

!  Oil 

th 

i  vn i ue . ’ , ! ! 

J 

IF 


ill  1 


u  u 

I) 


■  .  FI  F(  : ,  I  d 


UK  i; 


/ 


* 

X 


FJSP. 


/,20X, 'sat  i  Tying  the  specified  ', 
/,20x,  ’  f  i  ii  i  si  i  and  chip  criteria.  ',//  ) 


C  **********  Escape  from  wrong  response  to  "enu  7 
r 

ui?rn-:(  i,soo  ) 

jOO  RTT’AT(  20X,  'Only  the  numbers  1  or  2  can  !>e  res  '  ' 

&  'us  a  response.',//, 

x  10X, 'Please  try  again.',//  ) 

GOTO  -120 

1ND1F 

HNDIF 

c 

;■*  **************** 

< Did  pf  "Feed  OPTICN"  branching. 


C  SORT  for  "surface  Finish"  and  "chip  Quality" 

C'  **************** 


K  =  1 

no  020  inseit  =  l.NSFjrrs 

1)0  010  I  FEED  =  1  ,‘IFEm  n 

IF(  (  JFEF.D.NE.U  )  .ANT).  (  JFEKD.NE.  IFF.!-!)  )  )OO,O5l0 
IF(  (  IF  IN  I  ST  I(  INSERT,  JDKPTH,  I  FEET  )  .IE.ilT.TSM  ) 

A  .AND.  (  IQHIPf  INSERT,  JOFPTH,  I  FEED  ).LE.XO<!P  ) 

.AN! ).  (  lFINISiK  INSET!',  J DEPTH,  IFEKD  ).NE.O  ) 
it  .AMO.  (  IOHP(  INSEIT,  JDEPTH,  I  FEED  ).NE.U  )  )  TUFA’ 

KSEir(  K  )  =  INSERT 
KFF.ED(  K  )  -  1  FEED 
i:  =  k  +  i 

ENDIF 

oio  aoNTiNur. 

520  (THITNUE 

KEEPER  =  K  -  1 

IF  (  KEEPER. EQ.O  )  0710  70U 


('  Menu  0  -  Tool  Life  /  Length  Of  Cut  OPTIONS 

Q  **********  ****** 

r 

03(1  V,RITE(  1,540  ) 

0-10  FOR. 'AT (  /  ,  1UX,  'Hioose  Tool  Li  fe  OPi’inN.  '  , 


a 

//,20X, 

'  1 

user  specifics  Tool  Life1, 

/ , 2  OX , 

'2 

user  specifics  Length  Of  Oit', 

/ ,2 OX, 

'3 

user  specifics  Surfuee  Speed', 

OC 

/ ,  2  OX , 

'4 

optimize  tool  life  for  Lowest  Oost’, 

vX 

/  ,2  OX, 

'5 

optimize  tool  life  for  Maximum  Output 

// , 17X,  'Note: 

Results  are  mos t  reliable  in  the  "Vs.! 

sk 

I 

range  from'  , 

vX 

/,20X, 

1 

0  to  25  minutes. 

Hi  7 


V 


/ » 2  OX ,  * 


Cenputnt  i  ons  are  limited  to  this  range.'  ) 


I  "■  ***********  *  ,  *  *  * 

O 

C  'tesponse  9  -  Tool  Life  OiNION 

C  ’ 

(7  ************  ***-■* 

rfad(  i,'(n)’,  ehr  =  530  )  toppt 

ip  (  TOLPpr.ix.i  .ax  TOLYMVTr.5  )  ;  rnro  530 

if  (  iniDFr. ]-y\  1  .ox.  'irxoi’r. i/>. c  .ox.  tolopt.  no.  3  )  thi>; 

(731D  530 
ELSE 

costop  r  =  ’v 
0310  565 
i>:ni  f 

650  WRITE  (  1,500  ) 

560  FOR\AT  (  ////////////////////,  1  OX, ’Would  you  like  thc-CostO) 

A  ’per  cubic  inch  given  in  the  output? 25X, ' (  Y/N  )',//) 

HEAD  (  1,  '  ( Ai ) '  )  COSTOP!' 

IF  (  (OSTOih'.NE. ’Y’  .AND.  nOSTOPiV'JE.  'v'  .AND. 

A  CDSTOpr.NE.  ’N'  .  AND.  mSOPr.NE.  :  n 1  )  CHIO  550 

5  05  WHITE  (  1,57  0  ) 

570  FOIT.AT  (////////////////////, 2 u X ,  -Type  the  Diameter  Of  •, 

A  'Workpiece  in' , //,3GX, ' inches. ' ,//  ) 


REAP  (  1,*, 

m  =  565  )  nox 

IF  (  TOI/OPT 

.fa.  i  )  to:: 

n  - 

yJ  4  U 

WRITE  (  1 

,580  ) 

a  30 

POP:.  AT  ( 

/WO OX, 'Type  the  'Fool  Life  you  need  in  ’ 

,//, 

vX 

30\, 'minutes ’ ,//  ) 

!d  v\D  (  1, 

*,  ERE  -  57  5  )  TOOL  IFF 

FADI F 

IF  (  TOUDPf 

.ID.  2  )  H!1N 

<.)  O  J 

WHITE  (  1 

,500  ) 

u.l'o 

POX. AT  ( 

// , 2UX, 'Type  the  Length  Of  Put  you  need 

in 

Jv 

/ /  ,  30X,  '  i  nehos '  ) 

HEAD  (  1, 

*,  EX’  =  58:5  )  10311' 

ENDTE 

IF  (  TO*  DPT 

.!>N  5  )  TUN 

J  ■) 

white  (  1 

,"00  ) 

600 

P  WAT  ( 

// ,20X, 'Type  the  Surface  Speed  you  need 

in  ’  , 

.... 

■O'.  3  OX, 'surface  feel  per  minute'  ) 

EE\n  (  1, 

*,  Ml C!  -  595  )  '  •l'iv  . 

END  IF 

IF  (  TOSFOJN 

.EP.  'Y'  J'il.  nVTOPI'.ED.  ’y1  )THES 

51U 

WHITE  (  1 

,  '5  0  ) 

630 

ITU  AT  ( 

, 20X, 'Type  the  Tick’  a  1  ] owed  to  Change 

I  riser  i 

eX. 

’  in'  ,  /  > , .>u\,  i  i v m .  b  '  ) 

READ  (  1, 

*,  etc;  -  din  )  e  ; 

o30  WRITE  (  1,040  ) 

040  ROm\T  (  // , 20X, 'Type  apporoximnte  Cost  per  Edge  for  ', 
&  'inserts  in' , //,30X, 'dol lnrs  /  edge'  ) 

111  AD  (  1,*,  ERR  =  030  )  CPF. 
u50  WRITE  (  1,000  ) 

000  FORMAT  (  //,20X,'Type  ttie  Labor  plus  Overhead  rate  in  ' 
3c  //,30X, 'dol lars  /  hour'  ) 

READ  (  1,*,  ERR  =  050  )  PIT) 

ELTMF 


<p  **************** 

c. 

C  Oonpute  SPEED  (  surface  feet  /  minute  ) 

O  and  Real  'fetal  Removal  Rate  (  cubic  inches  /  minute  ) 

O  Find  metal  removal  rate  index  for  VAXintum  MtR. 

0  **************** 

C 

AmXMtF.  =  0.0 
M  =  1 

MWC(  M  )  =  0 
C 

DO  070  K  =  1  .KEEPER 

IF(  TOLQPT.BQ.l  )  THEN 
TOLIFF.C  K  )  =  TOOLIFE 
EISE 

1F(  TOLOrrr.BO-2  )  THEM 

TOLIFE(  K  )  =  (  {  LXUr  *  PI  *  notv  )/ 

a  (  .012  *  FEFT)(  KFEFD(K)  )* 

&  10.**  TL_1!MIN(  ISEUTUO.JnFPTd.KFF^XK)  )  )) 

3c  **(  l./(  1.  -  TT> _ nvr?(  KSEr7T(K),JrM5,ni,KI-ECD(,0  )  )) 

EUSF. 

IF  (  TOLOPF  .IX).  3  )  THEM 
THLIFEl  K  )  = 

oc  (  10  **  TL_1MIN(  KSRJT(K) ,  JDEPTH,KFJ^D(K) )  /  SFPM  ) 

c<  **(!./  'IL__PVE(  KSERT(K)  ,.mEPTH,IvFEED(K) )  1 

ELSE 

IF  (  TOLOl’T  .1X\  -1  )  THEM 
TOI.IFE(  K  )  = 

5c  (  1./  IT.  P\R(  KSEitr(K) ,  JDEPTH,!VFEED(X)  1 

A-  -  1.)  *~T  TCI  +  60.*  CPE  /  EDO  ) 

ELSE 

TXIFE(  K  )  = 

3c  (1./  'll.  IV  i(  KSF3fr(lO,JrEPni,KI-T.ED(E)  >  -  1.5 

oc  *  'ici  ~ 

liDIF 
EUDIF 
IHDIF 
EMDIF 

I F (  TOLIFEdO.LT.  5  )  TDLIFlX  K  )  =  5.0 
IF(  TOLIFE(K).fTT.25  )  TLLJFEf  K  )  =  25.0 

(  ' 


SPEED (-0  =  10.**  TL_P.!IN(  !CSERT(K),  JDEPIH,  IG-F.G )(l0  )/ 

(  TXIFE(K)  **  TT.  Pv*l(  KSFXi'OO ,  JEEPT',  P-FEnd)  5  ) 


B19 


ilP'KiO 


12.*  spehi(k) / (  pi  *  m;  ) 


irr(K)  --  imx  kfhipOO  )*  rpm(k)  *  'lourrOD/iooo. 

uijtc(i:)  =  fed  *  rin(k)  *  idlifkUO/iooj. 

‘MQK k)  --.ooooi 2  *fpfki H :< ) *nr-m i ( j r igpit-i ) *i'i:i r>( utepiX k ) ) 
Lrrji(K)  =.000012  *  sPEnn(x)  *  nrn  *  ff.o 

rnsT(K)  =  (  in ;>* <  inMHKid  i-  p-i  )  +  rPH  )/ 

*  (  GO  *  :r  IMlK)  *  TOI.IFP(K)  ) 

c. 

r 

1 F (  R'!U\(  K  )  .(T!'.,V'iV'PR'l  )  THEN 

AMvc.nn  =  irFRf  k  ) 

A\t  M  )  =  K 

ill'll  )I  F 

u70  (TisflMUE 

P 

P  **************** 


p  Soft  Keepers  such  that  the  MVCinuim  ‘UR  is  indexed  1st 
o  decreasing  to  the  minimum  '-HR. 

e  ***************** 

O 

iTFA'C.UR  =  0.0 

f" 

ID  G90  K=l, KEEPER 

TT.rjt(K)=i-:rui(K) 

'VV:(K)=K 
o'ju  rnniTiJr. 

iO  680  l^l.KliEl’ISl 
J=K 

085  IF  ( J  .HQ.  1 )  OOPO  G80 

if  (rT.ra(j).ar.ii.rji(.i-j))  tier 
an?,p=;Hui(j-i) 

rrR’.p=?.i\x(j-i) 

U'.FOtC  J-l  )=17iMl(  .1 ) 

,.A\(j-l)=U\X(J) 
n.FJU  j)=arK',ip 

.a\(j)=iti:.ip 

j-j-i 

tniO  085 

FK1HF 

uo0  CONTINUE 

A\!\X\RR  -  K  AXE HR 
BHYXMi:?  =  0.0 

p  **************** 

f  ' 

p  Output  SaTI'cI  Ins  rts 


************  ►  *  *  * 


700  IF(  KDW.lt. HQ.O  )  THD! 

FRITH  (  1,710  ) 

RTMAT(  ////////,  10X,  'NfNR  of  the  Inserts  tested  meet 
'your  S'RUCr  requirements.1, 

/ / ,  1  OX ,  1  I  f  you  can  relax  u  requirement, 

're-enter  the  program  at 
//,20a,  'one  of  the  ORl'IDs'S  listed  belov:. 
//////>25X, 'Enter  any  key  to  continue.',///) 

REAR  (  1,  '  (Al)  '  ) 

Q7TO  lOuO 

HNDIF 

72 U  ’AUITI-X  1,730  )  XF.FPFR 

730  Ft>'LVAT(  /////////,  10X,  15 , '  insert  -  Feed  eont>inut  ions  satisfy  ', 
Oc  'your  specifications.  ', 

k  /// , 20X, 'They  will  be  listed  according  to  their  ,' 

A  //,20X,  '  '.fetal  Rer.Dval  Rates.', 

A  //,20X,'The  first  will  have  the  highest  MIR 

2c  //,20X,'  decreasing  to  tlie  last.', 

3c  /// ,  15X,  'Enter  any  key  to  sec  the  1st  PAGE  of  INSERTS. ',//  ) 


710 


3c 

2c 

2c 

2c 


C 

7-10  RFAD(  1,  '  (Al )  '  )  APAGF 

7 oo  nurm  1, '(/////////////////////////)'  ) 

K  -  1 

ID  7fi0  M  =  (  L  +  (  K  -  1  ) *20  ),  KEIW.R 

WRITF.(  1 ,  '  ( A7 9 ) '  )  ASEifT(  KSFEI'(  MAX(M)  )  ) 

if (  (  'i  -  k*20  ) .crr.o  )  'mo; 

FRITH  (  1,  120  ) 

K  =  K  +  1 

RDM)  (  1,  '(Al)'  )  AlWTE 

RID  I F 

700  TAVriinjE 
M  =  l 

IF  (  [CEFPHJl.  1-2).  2 1  .OR.  KEEPER. HD. 42  )'  THEN 
apage  =  'V 


aJIO  780 
DO  IF 

V.UITFX  1,770  ) 

770  POR.t\T(  //,5X, 'Hnter  "R"  to  Return  to  Option  Menu. 

2c  'other  key  to  continue.'  ) 

7  80  TtD\D(  1 , '  (Al ) '  )  ALW1H 
780  IF(  APAGE. NR.  'R'  .AIM).  APAGE.  XT’.  '  r  '  )  THEN 
7  00 
aOO 


Filter  any  '  , 


oc 


uC 


wiitf.(  i,  300  ) 

K>EM\T(  /////// // ,  5X,  'EMi’FR  it  OF  OPITON  RAWED:  ’  ,  /  /, 

10X, 1 1  to  look  at  Output  of  un  Individual  Insert',//, 
10X, '2  to  see  All  inserts  in  order  of  highest  MIR',//, 
luX, '3  to  sec  the  List  of  sorted  inserts',//, 

10X,'4  to  sec  list  of  originally  Inputted  parameters', 
//,10X, '5  to  see  Definitions  of  terms  used  in  line  of  ', 

' MOORS  on  output’,//, 

10X, '0  to  Return  to  Option  '.fenu '  , /// ) 

R1AD(  1,*,  IF  31=790  )  TO  MOP!’ 


IF  (  TOD! DPT. FT.  1  .a?.  TOOlDPiLOr. C,  ) 


O  )/  i  72(1 


IF  (  imiDFI’  .  FQ.  3  )  0.1  fO  730 
IF  (  '1TDLD1T  .FO.  4  )  THEN 

VTtITEt  1,  810  }  FINISH,  AHIPfUUlP) ,  ITT/lOOU. 

IF  (  FIJI  'JIT  '1'  )  rlU!-M 

v,:utf.(  i,  820  )  fid/looc. 
else 

V.EITFf  ’,  '  (/)'  ) 

end  if 

ii-'  (  msToiTNEo.  ’v  .<ii.  <  nsrDpr.En.  ' y '  )  3  hen 

'.H\ITF.(  1,  830  )  'in,  n>F,  RED 

else 

lOHTlU  1,  805  ) 

Pir-*AT( ////////// , 22>:, 1  mrrn  oihpjun>  to  airnNUH' ) 

EXDIF 

•  vlv\l)(  1 ,  1  ( A1 ) 1  )  saw 

OJID  790 


6  ]  0 

O'. 

r . 

2< 

.V 

8  20 
o30 

vV 

A: 

vv 

vX 


O  J  o 

.V 

vX 

Av 

A 

vX 

'X. 

\X 

a 

tA 

vX 

C\ 

n* 


o' 

eV 


H7f.i\T(  22X,  ’ORIGINAI.  INPUT  PA’l-VKTFJlS' ,  / , 22X, 

• - ',///,  8>:, 

' SI JIFACK  FINISH  =  ',F0.0,'  micro- inches ’ , /  ',8X, 

'  HIP  nUALI'lY  '  , ./,  10X,A50,//,8X, 

’DEPTH  OF  arr  -  1 , F8 . 3 ,  1  inch  ’) 

prU'TYrf  ./,8X,  'FEED  =  •  ,  F8 . 3 ,  ’  inch  /  rev.'  ) 

inT  AT(  /  ,  8X,  'COST  INI <  »F  ’AT  ION: 1  ,  //  ,  12X, 

1  INDEXING  TI?. O'  -  ’ ,  F6 . 1 ,  '  minutes 12X, 

TOST/ INSERT  urn:  -•  $'  ,F13.2,//,12X, 

'TAUQR.  +  OVER  II  AD  PATE  =  '  $',F0.2, 

/ /  ,  2 2X ,  'ENTER  <',j:n.7lN>  W  rTWINUE’  ) 

ELSE 

IF  (  TOOLDP1'  .IT).  5  )  IHEN 
WRITE  (  1,  835  ) 

PIT  AT(  / ,  24X,  'iTTHXr  :  12  T  MIT  IONS’  ,/, 

’Notch  --  Observed  gradual  formation  of  notch  at 

Ml. O.O.  Tine’  ,  /  , 

2X, 'Nose  --  observed  gouging  of  rake  face  on 
'nose  of  insert',//, 

'Orator  —  '^served  gradual  formation  of  orator  on 
’  1 1  ic  insert  rake  face1,/, 

2X,  'OF  —  Observed  crater  a  I  ong  cutting  edge 

'of  ehip  breaker',//, 

'Spain.'  i  nb  Sparks  ere  observed  durin";  entire  ', 

'  l i s ; k ’  of  cut  t i ng' , / , 

■JX,  V.i:d  --  spark;,  '••.ere  observed  at  outline  time 

'during  last  .003"  flank  .vear',/, 

2X, 'Sli-ht  —  Intermittent  sparking  observed',//, 
'Vibration  --  Vi  brut  ion  and  chatter  noRm  of  workpiece’ 

'  during  time  of  cutting',//, 

'lil'F  —  build  up  edge  on  insert  cutting  edge',//, 

'No.se  '  —  Excess  i  vc  flank  v.ear  observed  at  ', 

’  mis,-  of  inscr  t '  ,  / , 

r.bsc  IN.;  f .  --  De format i on  or  melting  of  the  nose  tip',/, 

-o::  V.'e.a  r /Do  f  -  -  <  iradu.j  I  breakdown  of  cutting  edge  Tiring' 

'  tool  life  of  insert '  ,  ,7  , 


Hr  2 


<5t 

& 

<jC 

u 


blO 


0-15 


& 


& 
* . 


& 

A 


8  50 
860 

870 

830 

o  oO 


S00 


010 


020 


030 


'life  to  .010"  flunk  wear',/, 

3X, 'SI  i(;ht  —  Hchavior  wus  observed  durine  approx. 

’0.008"  flank  vveur'  ,/, 

22X,  'ENTER  <RKITJRN>  V)  (TWIT  RUE’  ) 

rea n(  i ,  ’  (ai  )  ’  )  A'Ttrr 

GO  ID  700 
OSE 

if  (  todi/ipt  .no.  6  )  ttil^n 

GOTO  1000 
LNDI F 
liTDIF 
FKDIF 

if  (  tooidpt  .m.  i  )  them 

WRITE!  1,  845  )  LTEPEK 

KXMVT( //////,  lox,  'ENTER  any  SFAJINTIAL  Nurber  (  1  to  ’ , 
12,  1  )  fran  tlie  list  of  inserts.1,///) 

JUAD!  1 ,  *  ,ERR=840  )  'mown 

IF  (  'IOOU-JO  .LT.  0  .AND.  'PQOLNO  .GT.  KEEPER  )  III 7 
OODO  840 

else 

IF  (  'I'OOU'T)  .or.  0  .AND.  TOOINO  .LE.  KEEPER  )  TRIM 
IF  (  Fnm  .EQ.  ’2'  )  THEN 
WRITE  (  1,  •(//)'  ) 

ENT)  IF 

WRITE!  1 ,  '  ( A7 9 )  '  )  ASi::rr(  ksert!  max(toolho)  )  ) 
WRl'IT!  1, 1  (A70)  ’  )  AND  IT.  (  KSETCT!  MAX(mHMO)  )  ) 
WRITE!  1,850  ) 

ATIIIP!  1Q1IP!  KSEHT!  MAX(TnOLMD)  ),  JHIP'I’M, 

KFEED(  AAX(rDOOINO)  )  )  ) 

IF  (  EEnOPT  .ED.  )  THFN 
WRITE.  (  l,  ’(//)’  ) 

IlilOIF 

WRITE!  1,860  ) 

sFiNisinK  ifirisik  ksijt!  mxdmi^D)  ),  .tderih 

KFEED!  AAX(TnOLNO)  )  )  ) 

WRl'(T.(  1,870  )  DEPTH!  JDEPTH  )  / 1000 . 

WRITE!  1,880  )  FEED!  KTEED(  VAX(TOOINO)  )  )/1000. 
l-nr,AT(  5X, ’Hi  ip  Duality  =  ’,A50  ) 

KKMAT(  /,20X,  ’Surf.  Finish  =  ’,A10, 

’  micro  -  inches  1  ) 

FORMAT!  25X,  ’Depth  of  Cut  =  1  ,F8 .3,  1  inch  '  ) 

rat1.  AT(  25X, ’Feed  -  ’,F8.3,’  inch  /  rev 

vvak'ix  i ,  r vj  )  toemt.;  max*  ’ROlno  )  ) 

rat  AT!  2 OX,  ’Too  ]  Life  =  ' ,  F8 . 1 , 

'  minutes  '  ) 

WRITE!  1,000  )  SPEED!  MAX!  rfODLNO  )  ) 

RIFAT!  20X, ’Surface  Speed=  ’.F8.0, 

’  surface  feet  /  minute  '  ) 

WRITE!  1,910  )  E  RR(  MAX!  TORINO  )  ) 

FOR' AT  (  20X,  1\  Rate  =  ',F8.1, 

'  cu!»ic  inches  /  minute  ’  ) 

vr.fi'e!  1,020  )  now 

RTTlvr!  25X,'|>.  O.  'Work pc  =  1  ,F8.1,’  inches  ’  ) 
WRITE!  1,030  )  J/TR  VAX!  TOOLNO  )  ) 

FIT  AT(  25X,  ’!..  O.  (Alt  r  ',F3.0,’  inches  ’  ) 


B23 


940 


<5c 


■J5U 

& 


900 


oC 


905 


970 


975 

980 


9  85 


A 


990 
9  05 


A 

A 


Kr 

oL 


WRITE!  1,040  )  RPH(  HVX!  TCOI NO  )  ) 

KP.VAT(  2 OX,  'ft.  P.  "I.  =  ',F8.0, 

'  rev.  /  mi  mite'  ) 

IF(  rDSTOPT.DW.  'Y'  .OR.  (DSTOPT.  EQ.  ’y '  )  THEN 
I  TRITE!  1,050  )  msr(  MAX!  TTDIID  )  ) 

FOR.  AT!  20X,  ’ Bos  t  =  $ '  , FG .  2 , 

1  per  cubic  inch  '  ) 

ELSE 

l', RITE  (  1,  ’(/)'  ) 


END  IF 

IF  (  Fra  OR'  .EQ.  ’2’  )  TfFEM 
V/RITE  (  1,  ’(//)'  ) 


FT 

l«ITE(  1,000  ) 

rar'AT(  /,10X,  ’amputations  for  user  .specified 
’  Dip  til  Of  Out  and  Feed  .  ’) 
WRITE!  1,005  )  n00/1000. 

Far\KT(  25X,  *n.  O.  Cut  =  * , FS . 3 ,  ’  inch’  ) 

VR ITE(  1,070  )  fkd/iouo. 

FORMAT!  25X, ’Feed  =  ’,F8.3,'  inch  / 

WRITE!  1,075  )  uvnn(  MAX!  TOOLNO  )  ) 

FXtvy\T(  20X,  'M.  R.  Rate  =  ',F8.1, 

1  cubic  inches  /  minute  '  ) 

WRITE!  1,980  )  ULOC(  MAX(  TOOLhO  )  ) 

R)mT(  20X,  ’ L.  o.  Out  =  ' , F8 . 0 ,  '  inches' 


1 


r  ov .  ’ ) 


) 


ENDIF 

WRITE (  1,085  )  . 

KTtM\T(  /,5X,  'Enter  "R”  to  Return  to  Option  senu.  , 
3X, 'Enter  any  other  key  to  continue.’) 
onro  780 
hndif 


endif 


USE 

IF  (  TOOIDPT  .EQ.  2  )  THEN 

IF(  APA1E.NE.  'R'  .AND.  APACE. ME.  '  r  1  )  THEM 
IF (  "LI-E. KEEPER  )  THCN 

IF  (  FKDOPT  . HQ.  '2'  )  WEN 
WRITE  (  1,  '(//)'  ) 

WRITE  (  l,’(A79)')  ASERT!  KSHTT!  MV'(  l) ) ) 
WRITE!  1 ,  1  (A79 ) ' )  ANOTE (  KSERT(  MAX!'!))) 
WRITE (  1,850  ) 

/Yn  ii  p(  ictiip!  kse izr(  ^ax(v)  ), 

JEEF1II,  KFEED!  PttX(M)  )  )  ) 

IF  (  FEDOPT  .EQ.  '2'  )  THEN 
I", RITE  (  1,  ’(//)’  ) 
eni  >i  f 

WRITE!  1,860  ) 

SF  INI  SUCH  (  IFINISH!  KSERT!  MVXCO  ), 
.TTT'FTH,  KFEEO(  MAX!  ■')  )  )  ) 
WRITE!  1,370  )  DEPTH!  .IDEPTH  ) /loot!. 
WRITE!  1,880  )  FEED(fCFET-n("'VVX(H)))/1000. 
WRITE!  1,800  )  TOLTFE!  VAX!  "T  )  ) 

write!  i,you  }  speed!  max!  m  )  ) 

WRITE!  1,910  )  RM2l(  RW<  "  )  ) 


I\RITF(  1,020  )  mv 

miTR(  1,D3U  )  irr(  n\x(  m  )  ) 

'.\nrnU  1,'j-iu  )  ri*i(  va\(  )  ) 

if(  awipi'.D.  'y1  .on.  rminpr.ir. )'R 

WlllTFf  1,050  )  .TORT(  NAX(  M  )  ) 

fi,sf 

1TJ'.(  !,’(/)’  ) 

indif 

if  (  i-cmpr  .rn.  ’  2 1  )  thin 
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C1  data  f  i7e  f  for  suKrout ’ re  ''C*’Arr;  ca^ed  hy  program  r'riD" 

c? 

n 

o'i  yjrrr  .  Comment  1  ires  ir  t*~e  data  ri1e  are  i dent  ’Tied  at  the  "'eft. 

CP  The  number  or  comment  1  ines  and  ^>e;r  p’seener1-  are  fixed  hy  prog^er 

06  SO55".  However,  the  content  mav  he  a1ferrd  or  crruted. 

C7 

C8  IMP  if  t>e  number  o^  data  entries  ir  t>e  order  specified 

CP  below.  'rhese  numbers  Mi’S"  correspond  t.o  the  nnmKer  o'1 

CIO  entries  ror  each  category  ir  tv>’*  data  rile. 
pi  i  fjprpr'j  t’ IT'D  "'up  NFEETT,  »ir  tmtoup  pruTpo 

1  o  1  o  C,  0 

Cl?  !NPfrr  D, 0. Cuts  (  used  in  tests  fo  oKta’r  data  '  a^te-  comment  1  <ro  r""1 
pip  Enter  MEEPTHS  numbers  in  thousandths  of  an  inch  <'ron  the 
C1f'  smallest  INCREASING  to  the  largest. 

60 

H5  TNPtr  FF.Ef>s  C  used  in  tests  to  ohta’n  data  '  after  oommert  lire  C'n 

H6  Enter  NEEEPS  numbers  ir  thousandth*?  of  an  inch  ^rom  ^e 

Ci-7  smallest  INCREASING  to  the  largest. 

10  17  op 

rio  Trpirr  FINISFes  '  oKt a i ned.  from  test  data  '  after  comrner*'.  line  r'>o 
Cin  Enter  NFINTSHS  numbers  ip  micro-inchs  Ptfi  from  fhe 
CCI  smallest  IN  CPE.  AS  TNG  to  the  1argesb. 

f  o  op  i  oc  ipn  pop  ooo 

C?i  Enter  SUREArE  FINISH,  correspond < op  to  N^tMtSHS  numbers,  ^ow  von 

C0?  wouV  like  them  to  he  outputted  in  the  program. 

C?p  Place  each  SETNTSH  on  a  sepe>-ate  line,  starting  v'tv>  the  smallest 

rpii  pff,  to  the  largest  ?»?>.  Fact  SFTNTSF  is  avowed  ’0  characters, 

C?c  start’rg  in  Column  11. 

Cpr  1  o  o 

00^  P'7qopiO‘’!ic^vQopioo)inA'7Rop 

c-> 

co+ 

IOC 

1^+ 

?r-0 

~>cn+ 

r?P  T»m»Tr  ch}p  Cun1  j ♦y  PES CPTP,nT ONS  on  separate  1  jnpe  mo  to  r0  spaces  v* <*r , 

C2°  Enter  NCHTPS  lines.  describing  chip  categories  use'4  ir  ^ata  co1  ’act . 

C,r>  Enter  the  BFT'r  first,  the  WOPS"  las*.  Pegin  arfer  conmert  ’’no  r‘5'\ 

1  _  goop  a11  'ria1 1  chips,  ro  cur1s 
?  -  f a  *  t ,  W  smal 1  chips,  shop*  cur1s 

0  -  poor,  hird  cage,  7ong  cur1  s ,  efc. 

C?1  INPtr  irr^TFIEPS  for  each  i rsert  on  separate  i  ires  up  to  °.0  spares  w!d», 

C3?  f  ol 1  wed  hy  Nf'CES  op  test  ohservaf  f  or.s  op  a  line  up  to  PO  snares  v'^e. 

CP?  Begir  input  of  INSEF"  irENTTFTEP  i;nes  after  this  comment  1  ine  C07. 
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'>07  too1  No.  »i  rieve1and  0?1  -  A1  ny  3NMo  io^ 

O'5  Note-  A11  Peer’s  -  f^e^er,  0.ni7"  -  ‘lose  Wear,  n.r'1’7"  -  Nose  1Vr. 

?0h  too1  No.  Carnet  -  TOO'1  -  A1  Oy  r’‘,‘/r:  n77  -  P 

OA  Note-  A  t 1  r eer!s  -  dpatering,  n .  o  i  o  **_  No.se  No4, o'"  1  rg,  0. 01*™-  t’o^et-  ,• 
pf)r-  tool  No.  coo)iO,  p-;r<-*  C  ter1  ’  rponi  5  _a  iny  p»iyg  n  ->o 

OP  Note-  A1*  ceeds  -  Flight  N otow 

206  tool  No.  507 'it  v a 1  er ’  t e  V05  -  A1  Oy  r*!*r,  /ito 

05  Note-  'V’cMpf,  o^o1,7"-  Pit  Notch,  O.fPO"-  A't.  rrp<-t*-~ 

TO7  too1  No.  POT 'in  Kennaireta1  750-  W*  »f>o 

07  Note-  O.nio-  _  FH  Notch,  0.01-7"  _  "it  Not.oMnp,  o.oir”’  -  r'ra’-o.- 
TO 7  too1  No.  507 M 5  Peer.  -  Tin  _  ‘tj’t:  F»!MV  ii«  -  7-» 

0°  Note-  0 . 0 1 0 "-F 1 1  Notch, 0.0t7"_r, it-  Notch* ng,0.0P0"-r‘r?4'<?r?rpA-Mose  ‘'oto1- 
POo  too1  No.  Oeco  -  tic  _  t\jit*  !'77  _  ->n 

09  Note-  0 . 0 t "  -  Slight  ntiP  A  o rater  1  rg,  0.017"  -  F.Ught  Notch : rg 

?i7  tool  No.  71  eve1  and  CM7  -  MuU!  Ft7*!  /177 

1 0  Note-  A l1  F eeds  -51! ght  No4 ch  * ng 

pi 1  too1  No.  P0750  Fandvi'/  -  'mc  -  ttuH!  FT7*-'  ino  -  7 1 

11  Note-  O.OiO"  A  o.0?0"_  eight  Notch,  O.017"  -  FMght  Notc^rg 

pi7  too1  No.  WVesson  AQ0  -  » \j 1 1- i  FNVn  ii77 
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06*1  Fh  i  p  etc 
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C66  Enter  a  aero  «f  no  data  wan  taW'r  r*'r  n  pa>"t,cn‘’?r  DFD'T'U  and  pFFP. 

C6>7  Pejri n  entrys  srt er  common4-,  I’rn  r'70 

Put  entrys  i r  7  positions  or  in  spaces  each  as  s^own  from  06n  * r  r"~'. 
C69  1  -  °  q  *  7 

£7p  1  rr^efrpppi  relief  rQnoireiic/.reopi  relief  7Pnp i  '•r  iiefrPpp  1  re^ef 7Qop  1  peij e f  'T°n 

C71  INSEPrr  !rr,"'H  rrpp  FTNTPP  OHTP  OT.F  -  PPVF.P 

C77  IHIEX  TNPFX  Tf’fT X  T»frr y  TtTEX  F^F?^  pypr>jr>FT' 
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DTAS0FA'T'A/  data  file  7  for  subroutine  C_DIAKflNP_°0  ea 1 1 ed  program 

NOTE  :  Comment  lines  in  tPe  data  fi'e  are  identified  at  thP  "left. 

'"he  number  of  comment  '  i n.er  and  the,-r  p'  acement.  are  fixed  by  peep- 
SOFT.  However,  tue  content  may  be  a'tered  or  omm'ted. 

INPUT  the  number  of  data  enfHes  in  the  cede-  specified 
below.  These  numbers  MTTfT  correspond  to  tbe  number  of 
entries  for  each  category  in  tMs  data  fUr. 

NEE  FTP  NDEP'HE  ‘  NT  EE  PR  NFTNESNC  NCHTPS 

17  1  A  -> 

INPUT  D. 0. Cuts  '  used  in  tests  to  obtain  data.  '  after  comment  1  i re  r 
Enter  NPEP^UP  numbers  in  thousandths  of  an  inch  from  the 
sma"est  INCREASING  to  the  largest. 

6G 

INPUT  FEEPs  (  used  in  tests  to  ohfca’r  data  '  arter  comment  tine  r17 
Enter  NFEEPR  numbers  *  n  thousandths  of  an  inch  rrori  thP 
sma11est  INGREASTNG  to  the  larges*. 

10  in  00 

TfPUT  FINISFes  1  obtained  from  test  data  '  after  comment  ''no  r~’0 
Enter  MFINTPFP  numbers  ir.  rv  cro-inchs  ?*E  from  *be 
smallest  IN  CPE  APING  fc  <-pe  largest. 

bo  no  mrj  iR?  ?ep  mp 

Enter  SURFACE  FINISH,  correspond! ng  to  NEINTPHP  numbers,  ^ow  you 
wou1'4  1 1  He  them  to  he  outputted  in  t>e  program. 

Place  each  SEINTSF  on  a  separate  lino,  starting  with  snai'est 
RfE  to  the  largest  R*E.  Eac17  SEINTSF  is  allowed  10  characters, 
starting  ’r  Column  ". 

1  P  ? 

678P01P?nc:h7poo 1  r-MioA^Rop 

b? 

IPG 

mn+ 

PP0 

®50+ 

TNPUI  chip  Oualit.v  rE.P'~PTD'"TCt,r,  or.  separate  1  i nes  up  *o  rP  spaces  w; dr 
Enter  N CHIPS  lire?  descr':v';ng  chip  categories  used  in  data  co'iect'or. 
Enter  tbe  PEST  f4rst,  tbe  wnRS7'  'as*.  Pepin  after  comment  tire  con. 

1  -  good,  all  ana"  chips-,  r.o  cur’s 
P  -  fair,  '"!)*  small  chips,  ~>r'a  short  cur's 
o  -  poor,  bird  cage,  long  cur's,  etc. 

INPUT  TrrUTTFTERP  for  each  insert  on  separate  lines  up  to  ®0  spacer  w1' 
followed  by  N'dEP  on  test  observations  on  a  "re  i ip  to  Gn  spaces  w‘ 
Begin  input  of  TMSEF”  TrFlE'TFTER  ''nes  after  th<e  oenmert  1  i ne  Cop. 
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C°  bedew.  "’bese  numbers  MUST  ec’-nespond  to  t^e  number  or 

CIO  entries,  for  each  categorv  ip  t** 5 r  data  f < 1  e. 

C 1  MSEPTE  NIF.DTHE  WHET-  NFTNTEHf  mCHTP? 

7  1  )i  £  •> 

C17  IMP  IT  I*.  0. Cuf  s  1  used  in.  test?  to  ot»t  g  <  p_  data  '  after  ernmcr*  i;ro  r 

C10  i.nter  NTT!P'"HF.  numbers  in  thousandth*  of  ar.  1  net  from  t^e 
C'f  smal  lest  INCREAEfn  tc  t^  i3rP^,‘, 

60 

Cir  TNPIT  FEFDs  '  used  in  tests  to  obtain  data  '  after  comment  "'ire  r--’ 

Cf  Enter  NFFHEF  numbers  in  th0nsardtv's  o'"  an  'ro^  rror  ‘■be 

f7  smallest  T  NOPE  AT  TVG  tc  the  larges*. 

10  1  n  PQ  -10 

r<0  TCP  IT  FJNTEHes  '  obtal red  from.  test  data  '  after  commer'*  fee  ,''>o 
Cir>  Enter  NFTNISHE  numbers  ’n  micro- ’nebs  PMb  from  *hp 
CPO  smallest  tmo^EAETMO  to  t>e  ’arpes*. 

Oo  qq  1  cr.  1O0  -100  -5  an 

Erter  SURFACE  PTNTSH,  corresoord i rg  f o  t!FT*jrptx*.  numbers,  hov  wnn. 
ft1  wcu1 d  1 ibe  them  to  be  outputted  < p  the  program. 

C-P?  face  eact  EFTNI?U  or  a  separate  1  ire,  starting  witK  thR  cma^Vst 

Cf  PKE  to  the  largerf  ff1.  Fnch  SrTMTSH  is  avowed  f  characters 
roc  starting  i r  ro1um’'  1  ‘ , 

C*f  1  5  -j 

c-."  C'70nninnnqA'’anninni:rff,'i3no 


after  comme^* 
from  *he 


r'  Q 

T%*r-.  yr^ 

ch  1  r 

n,jp  ■* 

;  *- 

NH’TP 

r'  1  ; 

no 

n~r\ 

F*  p  t-  r»  f' 

t  y>P  n  pf;  *T’ 

f  | 

1 

good, 

all 

ewr"  pj 

^  *\ 

- 

'  r, 

•7  rat 

sm.a 

■*  ' 

- 

■  peer, 

b  1  r^  ca  gc 

ro  - 

iN?tr 

y 

TT?  Tp 

PT 

c?? 

f  ol  ]  w  v 

yjrnrr. 

r'O? 

<  p 

!  npu* 

of 

T>1' 

5H1 

t  or* 

1  ”0. 

n  1 

M/-if 

c-  0 

.  " 

rrp 

t" 

1  No. 

ffn; 

rr 

n 

'Ic4- 

c-  0 

fin 

»• 

v  1  '  ri; ,  on  separate  'res  up  to  -n  spaces  vice, 

s  "inner  ' ’-i  eg  eh’  p  ea taper in*  used  in  da  7  a  no1 1  ect ;  or  . 
ret  ,  the  V/oiECf  1  asb .  Pepin  ?rtcr>  comment  1  •'  no  r^c. 

chips,  no  our1  r 
°h n*  7(f  short  eu'*'1  ° 

,  1  onp  ourVo,  0*0. 

for  each  <  nSCr»  on  separate  1  incs  up  *c  °0  spares  w :  <*■ 
on  test  observe  *  i  ors  or  a  1  1  re  up  to  Qn  spaces  v:;  d 
CFFT  Tmr"TFTr:i  1  *  pen  after  h~;  3  comment  line  f77. 
cnrboVv  _  g!:r  -  A1  °x  ngg  m  _  fi° 

7  ‘  rpo»  _  rrpicr:  ppt  q.qoTt  _  *'otchinp 

v 0 1  f.p :  *- n  _  vo1  _  A'  Py  put’c  in 

,  c,pcn.._  ijp-H*-  rm  notch,  fi.n-'-”'-  E. 1 1  ght  Notch 


vnr  _  a1  Oy 


PM  up 


50 7 

tool 

No. 

0° 

Note- 

-  0 . 0 1 7  "  - 

50  ■'! 

tool 

No. 

0'i 

Note- 

-  o.oir,,-f 

505 

too1 

Mo.  507SC 

05 

Note- 

-  0 . 0 1 7  "  . 

506 

tool 

No. 

05 

Note- 

-  0.017”  f 

507 

too1 

No.  507Fc 

07 

Not  e- 

-  0.017"  f 

Vaienite  - 
'  i  igbt  PTF 
nreen^eaf  - 
t  CE  Oef,  O.r 
Kennametal  - 
1  ipht  C rat  er 
Eandvik  - 


C1-! 


A  1  Oy 


t)  1C  _  4-  I-  DM  Mr. 

n,0.Q1'7"-f>it  °IF,'V 
z°n  _  t«tji  ti  °nmo 


pMfF  in 
rrater ; eg 


)i  p 


ns 

c?f 

CPI 

C?8 

pn 

no 

on 

Hip 

n? 

Ci!’l 

pic 

ns 

n)j'7 

C-M 

Cm 

no 

n1 

no 

cm 

n-s 

csr 

no 

nv 

ns 

n^ 

no 

CB1 

CCr 

ro 

nn 

ns 

n^ 

n7 

C6R 

no 


INPir  below  rTMTSH,  CHIP,  rOPFFTrTrNT,  and  POWF®  data  from  each  tes*  rur. 
Fin1' ?b  and  chip  Oua1  it.ies  are  Indicated  by  the  irtemer  correspond* rg  *’r 
categories  entered  above.  These  are  followed  hy  the  r^pi^rr  an^  pri.rD 
'  used  in  the  too1-! ife,  speed  equal !  or  '  f  ror  the  <*afa  for  pa  o’-  tort. 

ALL  of  the  aKove  value?  v,;  1 1  appear  on  each  1're  r<'  data  prf<,r°t  and  Kn 
FEAD  from  PC  LOO5?  structure'4  as  ''o11ov.'s  -  - 

For  eac^  -rMSFtrT'  - 
EEPTH  1 

P  1 

p  pf’df  P 


rE°TH 


Feed  r  r  over  the  rarge  or  feed?  ;nnu*'  after  ’  •’ r« 


F  eed  1 
Feed  0 

Feed  n 

CEP^F  m  r  over  the  range  or  depths  1  np\jt  after  commer4-  line  F1"  1 
Feed  i 

Skip  a  line  (  or  put  in  a  comment  1  i ne  '  Kefore  eaob  TNSETr'  data  so*- . 
Next  TNSEFC 
PEPTH  1 

F  eed  r, 
etc. 

3k ' p  et c 

Enter  a  ?err  ;r  no  ria*a  was  taken  for  a  particular  r*?nrp”  an^  FWL 

Beg’n  envoys  after  comment-  1  ipr  ry7 


Put  ert nys  in 

i 


positions  of  to  space?  e^cb  a?  shown 
a  'i  h  c 


t  to 


CIO  67R90  1  fOUFf  r°noinanc,C7cnoiDaur'':'aP.or)lpai|cf:7Dooipai|cf  dQoo  1 07)4^7  Ror)  1 0?"  nn~Oo 


C7 1  INSEm 

n?  in  my 

rr> 


ppp-T-lI 

TNmy 


rep  p 

Tfim v 


FIN TON 

T*im.y 


H'td  rrr.F-  POVFP 

rumy  FTTFir  F.XPONStTr 


BA  7 
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1  j  no 

^cvirp  comer 
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Hp  f orr 

TfK'no’-  Cf)l 
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i 
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r\ 

o 

0 . noon 

.  nn 

1 

•' 

p 

* 

p 

0  nQ'in 

.?5 

r.o  i 

i 

p 

^ 

P 

■s  _  -r?o 

. fl  1 

50  1 

i 

P 

1 

'  . mpf 

.  15 

comment  - 

A  1  ^  t.<?  1  p 

V  p  ^  p,  r '  p  ( 

.po  rp'-'np  ^ 

nvp 

rlPDf  h  or 

cut. 

50? 

■t 

•p 

0 

n' o 000 

.00 

50? 

i 

p 

p 

O  _  ir^CT 

.  ">0 

50'1 

i 

p 

">  _  /y^iio 

. ,n 

CQO 

“1 

': 

!] 

p 

P  pp  1  P 

.  Ji"1 

sHp 

50? 

1 

p 

n 

r- 1  o  non 

.  'lo 

507 

i 

P 

P 

p 

P^QQO- 

.  °1 

r:  p  p 

l: 

p 

0 .  non0 

P  ! 1 

CQP 

o 

l> 

•• 

o 

00 

sk :  r 

r  p>] 

i 

1 

i 

p 

p  i  p^p 

P  1 

^0?i 

1 

p 

p 

p 

p  ^pppe 

or 

CO,1! 

-» 

*5 

p 

p 

p  <  ppi'^ 

p£ 

1 

p 

p^QPr 

pp 

r  k '  p 

PQC 

. 

* 

n 

o 

n ( ponn 

.  00 

POC 

- 

P 

* 

p 

P  07  17 

pp 

sor 

P 

p 

P  ir>P»j 

. 

rnr 

i 

': 

p 

i 

p  i  ppr 
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C  '  p 

OH* 

o 

p  PP^O 

r  p 

r  p  C 

- 

p 

p 

P.^  ^0 

p^ 

r  />(" 

- 

P 

p 

P  (PCAa 

p  i 

r  n  - . 

* 

i 

p 

p  #  P  *5  P  f- 

p  * 

5*  V  ■*  p 

rrp 

i 

P 

n 

r\  <  none 

.on 

- 

p 

p 

p  000  1 
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rp*7 

• 

0 

?! 
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p  p  ’  1  p  p 

p  i 

n." 
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p 

p  "» 

.  o^ 

BAB 


npi-p  r.-ip;  r- 


Cl  TRTDATAI  data  file  5  for  subrout 5 no  TRT  ANCLE  cal1  pc’  +y  program  Sbiy" 

C? 

C3 

04  NOTE  :  Comment  Mnes  in  t^e  data  fMe  are  identified  at  t^e  left. 

C5  The  number  of  comment  liner  and  their  placement  are  fixed  by  pmrr'^.m. 

Cb  SORT.  However,  the  content  may  be  a1  tered  or  omm’ted. 

Cl 

C8  INPUT  the  number  of  data  entries  In  the  order  spec’ Hed 

0}  below.  These  numbers  M IUST  correspond  to  the  number  of  entries 

C’O  for  each  category  In  this  data  file. 

Cl  NSEROT  NfEPTHS  WEF.TF,  NFINISiS  NOT  TPS 

7  i  7  f  7 

Cl?  TNPOT  D.  0.  Cuts  '  used  in  tests  to  obtain  data  1  arter  comment  1’re  r,h- 
C3  Enter  NEFPTHS  numbers  in  thousandths  of  an  ’no*  from  the 
CM  smaCest  INCREASING  to  the  largest. 

?no 

C5  INPUT  FEEDs  (  used  in  tests  to  oKtain  data  '  after  comment  line  ri7 

Ch  Enter  NFEED5  numbers  in  thousandths  of  an  inch  from  the 

C7  smallest  TN CEASING  to  the  largest. 

20  o  7 

C1p  TNPOT  FINISHes  (  obtained  from  test  Cta  '  after  comment  line  C?o 
CO  Enter  NFINISHS  numbers  in  micro-’nchs  FMS  from  the 
C?0  smallest  INCREASING  to  the  largest. 

IPO  OTO  330  77R  000  bOO 

CC  Enter  SliRFACE  FINISH,  correspond!  rg  to  IF  IN  IS  HE  numbers,  how  you 

C2?  would  lihe  them  to  be  outputted  in  the  program. 

C?3  Place  each  SFINTSH  on  a  separate  line,  starting  t*e  smallest  CM? 

C?M  to  the  largest  RMS.  Each  SFINTSH  is  allowed  10  characters, 

CRG  starting  in  Column  11 . 

C?6  1  ?  o 

CC?  A73901 ?3M5b78oo i?3'iRb7Roo 
1?R+ 

PRO 

?R0+ 

?50  -COO 
R00 
500+ 

C0’  INPUT  chip  Duality  DESOTIPMOTS  on  separate  Mnes  up  to  RO  snares  w’de. 

C?°  Enter  N CHIPS  lines  describing  chip  catagories  used  ir  data  co11ect’or.. 

C30  Enter  the  PEST  first,  the  WORST  last.  Begin  after  comment  1ine  r7n. 

1  -  good,  all  anal1  chips,  no  curls 
?  -  fair,  O*  small  chips,  short  curls 

3  -  poor,  bird  cage,  long  curls,  etc. 

C31  INPUT  imOTTFIERS  for  eaOT  insert  on  separate  Mnes  up  to  Po  spaces  w’de, 
C32  f o1 1  owed  ny  NOTES  or  test  observations  on  a  Mne  up  to  BO  spaces  v’de. 
C33  Begin  input  of  INSEOT  TTFNTTFIF.P  lines  after  th’s  comment  line  G77. 

101  too1  NO.  rarbol oy  R70  -  A1  ox  CIUM  Rii7  -85  cmtiO:  M' 

oi  Note-  A11  reeds  -  Scneccbing,  O.on?"  _  Nose  uear,  0.0?7"-  Sparing 

10?  too1  No.  ,rPW  ni'p  -A1  Ox  '’’NUG  R-’> 3  -  E  "nMO:  7'i' 

0?  Note-  0.0?7”  -  Slight  Sparging 


B49 


'ii  1110  :  '3I!' 


ino 

tool 

No. 

Valorise  \'0r  -  A  i  Oy  ~nvo  gua 

Oi  mo  : 

-311 ' 

O'7 

Note' 

-  0 . 0 1 '  "  -  i 

Nose  Near ,  A’7  F ccd«  -  Slight  Sna»'i/irp 

ion 

toe7 

No. 

Va7enite  V0r  -  A’  Oy  TNMM  cn'J  _  rp 

fn  1)1''  ; 

O  '«  N 

on 

Not  e- 

A  7  7  F  eeds 

-  Screeching  A  SparUnp,  o.o°7'’  -  Nose  Def. 

105 

tool 

No. 

Kennanet?7  000-  t \i  0 1 1  tmw  m-a 

(in. no . 

C't  ■- 

05 

Note- 

-  A'7  Feeds 

-  Spark’ ng  f  Screeching 

106 

tool 

No.  FO^a 

SardviL-  r,\~>  _  71 

rumo . 

75  !  1  ' 

06 

Note- 

-  A 1 1  reeds 

-  ’lose  Wear 

107 

too7 

No. 

W i dp  1  nr  .  'Vt<  ~N>*'  cp  _A 

f  h  1  IjO  . 

ON  > 

O’7  Note-  0.0?0"  -  Nose-  Wear,  >  ".O'0”  -  Screech ‘ng  t  Spcrv;rr 


C?‘! 

r?s 

73  c 

INPir  below  FINISH,  CHIP , 

0CEFTTrTEtr ,  ard  PO'.-fP  data  from  each  tp«g  run. 

C77 

F Irish  and  chip  OuaMties 

circ  ^rrlic^tGc*  t^G  i 

rteger  corresDordi  r.g  to 

riQ 

categories  entered  above. 

These  are  f o7  7  owed  by 

ti-e  ooNPFTOTFfr  and  07.ro 

coo 

f  used  ip  the  tooi-]ire,  5 

'need  ecus tier  7  from 

the  data  for  each  tenf. 

one 

m 1 

ALL  of  the  aKove  values  w: 

7  7  app-ear  on  each  7  i  ne 

■  of  data,  entered  and  rp 

Clio 

FEAR  from  ^O1  LOOP  ?  structured  an  ^o7  '  ows  -  - 

r)i  0 

run 

For  each  TNSFFrT'  - 

0115 

ppp^n  1 

end 

Feed  7 

r.hT 

P*  P 

PM  0 

fin 

Feed  r  (  over 

the  range  of  dpodj-  input  after  lire  r7'T  ?>r>ve  7 

rr,p 

ITP'rH  ? 

re  1 

F  cc'i  1 

OC? 

Pop  a  c 

PC;'? 

CP': 

Feed  r 

PTC 

nr  T. 

p  (  0 vr k-  r 

•ange  or  depths  ;npuf  a 

ftc'  comment  7 ine  nin  7 

Or;v 

p  pp;^  1 

pro 

PgO 

ip?  "i  i  pr  '  pp  puF  i  r  ? 

comm*',  1  i  r»r  '  Kororr 

T Mr  P  TfT' 

Neyt  T  MSP  FT 

r<  ’ 

fpOTU  1 

05,0 

r^o'i  p 

pro 

f-tc  , 

f6n 

Skin  etc 

rAr 

066 

Enter  a  ye  no  -f  re  data  was  *'a.'-er  for  a  pa  ”t *  01; 1 

ar  prpe-u  anf»  cpgn. 

067 

Begin  entry s  after  comment 

7  inc 

065 

Put  Gn.trvs  fp  *7  por.  1 1 !  orr  rsF  "F  rp-o^-r 

?r  rtovr  f  ^ort  ^ n'  ^  0  ^ 

060 

1  p  *> 

M  h 

A  7 

070 

A?  POO  1  '>7)inf7Dco  I  pc -1 1:  AcOoc  1  -> 

3)1-  ccon  1  -I-J'ic Ac-Ooo  -.  op!;cr. egop  1  ooiiggygon  ini'-rr-Oo 

07  1 

IHSF,pr  rr:P7T  rrrn 

rTOrcp  Ml  TP 

On>tr_  °0VEF 

rm 

TNTTX  IN?FX  TNIF.y 

Txjrpy  rF!T'y  rT 

'"rr‘rT-  EXP ONE  tr 

rv  0 

B  o 


This 

1  ine 

following  comment 

line  C7? 

i  s  the 

SKTP 

line  before 

first.  TN 

101 

i 

1 

9 

-> m  Ri/ip 

.18 

10i 

i 

? 

h 

9 

3_ RppO 

.  17 

101 

i 

"3 

n 

9 

.25 

skip 

10? 

i 

1 

p 

o 

o .  AqA"3 

.07 

10? 

i 

2 

n 

?.8nRo 

.?n 

102 

i 

9 

1 

2.7Q17 

_  10 

skip 

10? 

lj 

1 

7 .  Q0 15 

.O'7 

10’ 

i 

p 

*; 

?.  7QH-3 

.  1° 

10? 

i 

"3 

r 

1 

p .  h.'i  pn 

.05 

Skip 

■>0h 

i 

1 

o 

p 

•3_7O70 

_  17 

ion 

i 

2 

)J 

9 

P  '  f,OPO 

.05 

ion 

i 

-) 

0 

1 

?.  57-30 

.08 

skip 

105 

1 

i 

o 

9 

P.Ofclf 

.  10 

105 

il 

1 

o  . Poop 

.  17 

105 

-> 

n 

9 

7  P7'1f) 

.  7? 

09 

T3 

106 

i 

1 

o 

? 

? . 7 ’ ?0 

1C 

105 

i 

9 

n 

1 

?.6°07 

1  1 

106 

i 

9 

0 

i 

2.5)15? 

.  10 

skip 

1f)7 

i 

O 

1 

7.78)15 

.  m 

i07 

i 

9 

? 

*1 

O  -tPc^c; 

.  ir- 

107 

9 

li 

1 

? ,  8 1  7  1 

.26 

B51 


C1 

02 

n 

a  i 

C5 

C* 

(7 

C8 

CP 

CIO 

C1 1 

p  1  o 

Cl? 

CVi 

rir 

pic 

p- 

C° 

Cio 

c?o 

C.?1 

C?'' 

CO? 

grit 

r?r. 

pof, 


SCUI'A,rA  <  data  file  f  for  subroutine  F- CXI  AW  cai’ed  Ky  program  SO?"'  ' 


NOCF  :  Comment  lines  fr.  the  data  ffe  are  identified  a4-  ♦•he  1ert. 

Tie  number  of  ''ommer.t  Vines.  an'4  their  p’acem.ert  are  fixed  hv  preplan 
SOF".  However,  the  confer*  mav  be  altered  or  omnv’ted. 


INPUT  the  number  of  data  entries  in  t>e  order  spec'f’rd 
be1  ov;.  These  nissv'er's  MUST  correspond  tc  the  number  of 


entries  ror 

03  ch  r:3  tcrc^v  *  p  tM 

r.  data  f : 1  e. 

moffts 

>jrrrrrr» 

tr  iNir.fr 

)i 

1  T> 

b 

Ttpir  p.n.  Cuts 

(  vi s O'i  in  ^ 0 

obtain  data  ' 

prter  common4:  1,4  no 

Enter  NEEP'T'HS  numbers  in  thousandths  of  an  *  nch  from  the 
smallest  INCREASING  to  the  ’’arpest. 

n0Q 

IMPIN’  FEFTs  (  use'1  in  tests  to  obtain  data  '  after  comment  Vre  C'7 
Enter  NFEEES  numbers  In  thousandths  of  an  inch  from  the 
smallest  INCREASING  *o  the  1  arrest, 

20  ^3 

INPUT  FTNISHes  f  obtained  from  test  da^a  '  after  common*  f ine  02n 
Enter  NF  IN  IS  HP  numbers  in  rrUcro-inchs  PM7,  from  tye 
smallest  INCREASING  *o  the  ’argest. 

iRq  ?rp  Rpp  77c  poo  Ron 

Enter  SURFACE  FINISH,  correspond  i  nr  to  SPIN  TENS  r.umhers,  hovr  vou 

would  1  U;e  them  tc  he  outputted  ir  the  program. 

Place  each  SFTNISH  on  a  seoerate  line,  e* anting  with  ♦he  sma 1 1  est 

to  thr  1 3PPC33*-  rcn.^  cr t'jtc?!  x  ~  1  1 0  r^spreh^r?  , 

starting  in  Co1 umr  7 1 . 

1  o  ~ 

tRqo  1  po)|c,g7goo  1  poiip/rqno 
1  2S  + 

sco 


250* 
rrp  ..qoo 

POO 

rpo+ 


P^o, 

Tupim 

chip  Cun ?  ■  t 

v  ITS^PTTf^r  or  serrate  ] 

iner  up 

to  ^0  d 

pares  wide. 

rpo 

F  nt  en 

M  fTirn  ^  i  i  r,p 

a  r’r* .-*r  1  Vo  -  pp  ph  ;  £  00  t  0 pO P 1  or 

used  i 

P  r3^ 1 3  oo1  1  cot ’’ or . 

Ente” 

t^o  ppr.T  t,; 

pet-  ^  ^V-p  f/O’tHT  rC  1  ^  m  t  . 

n  ar*er 

romp on f 

Mnc  . 

-  good, 

,  a1*!  rr.n'' 1 

•chips,  po  our1  s 

'T 

-  fa' r, 

7 a*  a^a  1 1 

oh  i pr ,  ^0*  r^or*"  pur' f" 

-  poor 

,  b  <  pa  ca  re 

,  ’  onp  cur'1  s,  ot  c. 

up  to  °o 

C?1 

iNptr 

inEN"Tr  TrPS 

,“*V*  i  nrPpf  pr~  np o 

1  i  res 

spares  wide 

rya 

followed  by  N^ - 

pp;  vppt.  ohscrv0fo  ons  r,r  0 

1  i  ne 

vip  tc  Q0 

spaces  w'de 

C33  Beg:  n  input  of  INS^F"  7  TT  Ur  IF  IT  1  i  n^s  a^tep  try  comment  line  O'’7. 


20 1 

tor1  No.  r00or 

Sandv'b  1 

: ' r  -  Mu1 1  ’ 

S  Ml*  *  b!i7  .  71 

(in an  :  7,‘ 1 

ft 

Note-  AV  Feeds 

—  Cyr',fr,l'  i  pc 

' J  t  •  •  '  1  •(_  1 

^  0  or o  " 

_  Pp  4' 

°02 

too1  No. 

Sardvik  1 

Jl"  _  Mijifi 

SNK,<  -  7 1 

nniin:  i)i  i 

0~'  Note- 


85: 


?0? 

too1  No. 

Seco  "Tip 

-  Mu  1 1  d 

SNMM  Pin  _  a? 

0)1)10;  7  1)' 

03 

Note-  <  0.ne?» 

-  End  Spari'i ng, 

O.OP?  " 

-  Screeching 

=3  ^3 
O  O 
rv 

tool  No. 

Note- 

Widal  or  TK,r- 

-  Multi 

CNN*'  fill  ?  -  6 

(liHin  ;  7)i ' 

C3M 

C35 

C36  INPl^  below  FINISH,  CHIP,  CCEFFICTCrr,  and  POWER  data  *Yom  each  ten*  nir. 

C37  Finish  and  chin  Dualities  are  indicated  by  the  integer  correspond ’ rg  to 

C3^  catagories  entered  above,  '’'bese  are  foi  lowed  by  the  'TEFFTHTINT  an^  ^OVC” 

C?9  f  used  in  the  tool-Pfe,  speed  equation  1  from  the  data  for  eac*-'  t.eo>  . 

Pin 


04  1 
CMp 
pi? 

cun 

Pip 
Pi  6 
Cl 47 
CUP 
pn 
C5D 
fr  1 
C57 
CF'~> 
CPU 
0"-r 

csfi 
Pi” 
CPP 
05° 
CP  0 
rf  1 

CPs 

PP 

ecu 

CPC 


ALL  of  the  above  values  win  appear  on  each  i<ne  of  data  entered  and 
PEAT  from  DO  LOCPs  structured  as  f o1 1  cws  -  - 


For  each  INSEF1'  - 
IE?  "9!  1 

Feed  1 
Feed  ? 

Feed  n  f  over  t^e  range  or  feeds  irput  after  1 < ne  P1”  a^ove  N 
DEP^H  .? 

p  00C4  1 

Feed  ? 

Feed  r 


IEPTH  m  < 
Feed 


over  the  range  of  depths  irput  art,er  comment  line  r"'i! 
1 


\ 


Skip  a  line  (  or  put  in  a  corner*  line  1  befo*--e  paci-  INSEF’'  data  set. 
Next  INSERT 
rEPTH  1 

p  0pr<  ft 

etc. 

Sk ip  etc 


Enter  a  zero  <  f  no  data  was  taken  tor  a  particular  DF.P'rH  and  FEED. 

Peg’n  entrys  arter  comment  line  r7'5 

Put  entrys  ?r  n  positions  of  1D  spaces  each  as  showr  from  cPo  tp  mo. 
1  2  ?  )i  5  P  7 

C70  f  7S90 1  ?3«  5^,7890 1 P7U5P7R90 1  P?l4EP7PO0 1  e-3),^97qO0 1  ?->;irP7Roo  1  paagpyaoe  1 07)10  r.spn 
Op  INSFPT  DEPTH  FF.ED  FINISH  CHIP  DOFF-  POVTE 

C72  INDEX  INDEX  INDEX  INDEX  TNDEX  FI  DTE  DP  EXPONENT 

C73 

This  line  following  comment  line  C??  is  the  SKIP  line  before  first  INSEP”"  20’. 
201  1  1  e  1  ytup  .QO 

201  1  p  o  1  P.71MO  ^pp 

201  170,  7.9156  .06 

ski  p 


CPF 

CF7 

CPP 

CPn 


op  7 


o  p.pvnu 


.  10 


B53 


Data  File:  R  DIA80DATA 


Cl  DIA80DATA'  data  file  7  for  subroutine  C  DIAMOND  80  called  by  program 

C2 

C3 

C4  NOTE  :  Comment  lines  in  the  data  file  are  identified  at  the  left. 

C5  The  number  of  comment  lines  and  their  placement  are  fixed  by  prog'’ 

C6  SOFT.  However,  the  content  may  be  a’tered  or  ommited. 

C7 

C8  INRUT  the  number  of  data  entries  in  the  order  specified 

CR  below.  These  numbers  MUST  correspond  to  the  number  of 

CIO  entries  for  each  category  in  this  data  file. 

C11  NSERTS  NDEPTHS  NFEEDS  UFINISKS  NCH1PS 

7  13-1 

C12  INPUT  D.O.Cuts  (  used  in  tests  to  obtain  data  i  after  comment  1 ine  r 
Cl 3  Enter  NDEP'"HS  numbers  in  thousandths  of  an  inch  from  the 
C 1  smallest  INCREASING  to  the  largest. 

200 

C15  INPUT  FEEDs  (  used  in  tests  to  obtain  data  )  after  comment  "'ine  -l7 

C 1 6  Enter  NFEEDS  numbers  in  thousandths  of  ar.  inch  from  the 

r l 7  smallest  INCREASING  to  the  largest. 

20  2' 3  27 

CIS  INPUT  FINISHes  {  obtained  from  test  data  1  after  comment  ’ine  C20 
CIO  Enter  NFINISHS  numbers  in  micro-inchs  RMS  from  the 
C2Q  smallest  INCREASING  to  the  largest. 

180  250  330  375  500  800 

C?’  Enter  SURFACE  FINISH,  corresponding  to  NFINISHS  numbers,  how  you 

C22  would  like  them  to  be  outputted  in  the  program. 

C7 3  Place  each  SFIN1JH  or.  a  seperate  line,  starting  with  the  sma’  lest 

C2;!  RMS  to  the  largest  RMS.  Each  SFINTSH  is  allowed  10  characters, 

C.?5  starting  :r  Column  11. 

C26  1  2  3 

“27  {  I'dOOl  2345878001  ?3-’i':t'7B?0 

125+ 

250 

250+ 

250-500 

500 

500+ 

C?8  INPUT  chi"  Quality  DESCRIPTIONS  on  separate  lines  up  to  80  spaces  wide 

C20  Enter  NCHIPS  lines  describing  chip  catagories  used  in  data  collectior:. 

C3C  Enter  the  BEST  first,  the  WORST  last.  Begin  after  comment  line  C70. 

1  -  good,  all  small  chips,  no  curls 

2  -  fair,  70?  small  chips.  30*  short  cur’s 

3  -  poor,  bird  cage,  long  curls,  etc. 

C 3 1  INPUT  IDENTIFIERS  for  each  insert  or  separate  lines  up  to  80  spaces  wi 

C32  followed  by  NOTES  or.  test  observations  on  a  line  up  to  80  spaces  wi 

033  Begin  input  or  INSERT  IDENTIFIER  lines  after  th’s  comment  line  C33. 

301  tool  No.  TRW  985  _  A1  Ox  CNMC  843  -  E  (4140: 


np" 

a" 


1  !• 


dr  , 
de . 

34  ’ 


B55 


O'  Note-  C.02C"  -  S 1 ight  Spar/irr 

302  tool  No.  S002U  TRW  O’P  -  A1 

02  Note-  0.02,7”  -  Slight  Sparking 

303  tool  He.  Sandvik  -’ilf  -  Mu 

03  Note-  All  Fee dr  -  fight  Sparkier 

30U  tool  Ho.  Sand vi V  ')’r  -  Mu 

OK  Note-  0.023"  -  Slight  Soa-king 

3.CC  tool  Ho.  Seco  TP2")  -  Mu 

05  Note-  All  Feeds  -  Slight  Sparking, 
305  tool  No.  Garbo’ ny  550  -  Mu 

0'  Note-  0.027"  -  Vibration  '<  Sparking 
207  tool  No.  Cartel oy  5G0  -  Mu 

0"  Note-  0.020"  -  Sparking 


A1  Ox 

CMMG 

CU3  - 

CF 1 

(Uli)O: 

n  I;  > 

Mu  1 1  i 

cup  - 

"  1 

11)11)0: 

O;.  N 

Multi 

r*v*,*?  * 

HP  _ 

7  1 

<  !>  1  lie  : 

*3  '!  ' 

Mu  1  1 1 

CM\G 

c>\  3 

•'Ui;>o; 

30  ' 

O.007  " 

Multi 

-  Hose 

f  \iwr 

v.  .1  i  u 

*  We  a  r 
5  U3  - 

c  0 

dpn. 

0  rj  n 

ng 

Multi 

^VM'' 

C  J;7 

'  i)  1 7  0  : 

1  c  ' 

G35  INPUT  below  FINISH,  SHIP,  COEFFICIENT,  and  POWER  data  from  each  test  -ur, . 

C37  Finish  and  chip  Qualities  are  indicated  by  the  integer  corresponding  to 

C3?  categories  entered  avove.  Thp.se  are  fc’  lowed  by  the  COEFFICIENT  and  POWER 

C37  f  used  ir.  the  tool-1  i  fe,  spc°d  cq  ntior.  1  from  the  data  for  each  test. 

cue 

Cf  ALL  of  the  above  values  vi ! 1  appear  cr.  each  Mne  of  data  ertered  and  b<= 

C;>2  REAP  from  DO  LOOPs  structured  as  fo1  lows  -  - 

Q.'i? 

fill  for  each  INSERT  - 
C’:r  DEPTH  i 

CUP  Peed  ’ 

CUT  Feed,  e 

C  uc 

cup  Feed  r.  ’  over  the  range  or  feeds  input  afte"  ’ire  CL1  above  1 

rr.Q  DEPTH  b 

r5 1  Feed  1 

Cr  7  Feed  "> 


C5e  DEPTH  m  (  over  the  range  cr  depths  input  after  comment  ’ire  C 1 ' 

Cc?  Feed  ’ 

PC  p 

r-o  Skip  a  lino  (  or  put  in  a  comment  ’ire  1  befo~®  each  TNSEP'r  data  set. 
r/'0  H p y  t  INSERT 

r  c  1  DEPf  1 

C52  Feeds 

C  h  3  etc. 

CfU  Skip  etc 


rff  Enter  a  zero  i  f  no  data  war  ta’.-or  for  a  particular  DEPTH  and  FEED. 

C.C' 7  Pcgin  entry s  after  eomment  ’  i  "p  mi 

rfp  Put  entry  s  <r  post  tiers  cr  '0  spaces  each  as  shown  from  C^o  to  C7S . 

Cr  a  1  p  3  ))  r  r  r 

ran  r  ?Po9  1  o'5ij5f  7,300  1  pgep  1  p  -j.’i.-  f  -  O'- . .  'o.ijurrea^  1  gaiinf  ig  1  pa  i.r  cppeQ  1  ?3f)5c7!'a 


C7  1 

INSERT 

DEPTH 

prr?r  F I  tt’T  f,*; 

HIT? 

rQ^rr?  _ 

POWER 

C72 

INDEX 

INDEX 

INDEX  INDEX 

INDEX 

FICIFNT 

EXPONENT 

C73 

This 

line  fol 

1 owirv 

romr.ent  line  C72  is. 

tDe  SKIP  1 

ine  before 

first  INS 

30  i 

1 

1  7 

i 

^  r(  r.  Q  * 

.  Ui 

3C  1 

* 

2 

i 

2.  M971 

.09 

301 

1 

3  3 

i 

:-.U809 

.  lp 

skip 

i 

i  ? 

3 

7 .7397 

p  r\ 

.  X  o 

i 

2  .'I 

p 

2.76-06 

1  C. 

3  ">2 

i 

3 

7 .  ^  5  9  7 

1 

skip 

303 

i 

1  p 

O 

7.750^ 

.13 

303 

* 

*7  O  7  cr  rj 

.?p 

333 

3  q 

1 

2.771  1 

.21 

skip 

30M 

i  ? 

o 

7 . 

.  ^  1 

30-'J 

i 

c 

c. 

1 

2.  ^095 

.13 

•j.n.'j 

i 

1  u 

1 

2.  c*493 

*7*7 

skip 

i 

1  1) 

1 

7  7C7  6 

.  0° 

30c 

i 

p  r 

1 

2 . 677fl 

.  1  1 

7  05 

i 

1 

2.f9i? 

. 

skip 

305 

i 

1  7 

1 

2.7091 

,0~ 

30r 

i 

P  3 

1 

2. 70P7 

no 

70f 

7  c 

1 

2.  f  MS  '! 

1  1 

sk  i  p 

30^ 

i 

1  0 

1 

2.7171 

.OM 

ipj 

i 

?  •' 

1 

2.70  V' 

.09 

307 

i 

3  5 

1 

2 .  ^  7  7  7 

.  09 
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Data  File:  R  D1ASSDATA 


Cl  DIA55DATAI  data  file  8  for  subroutine  D_DIAMOND_55  called  by  program  SORT 

C2 

C3 

C 4  NOTE  :  Comment  lines  in  the  data  file  are  identified  at  the  left 
C5  The  number  of  comment  lines  and  their  placement  ere  fixed  by  program 

C6  SORT.  However,  the  content  may  be  altered  or  om<ilted. 

C7 

C8  INPUT  the  number  of  data  entries  in  the  order  specified 

C9  below.  These  numbers  MUST  correspond  to  the  number  of 

C10  entries  for  each  category  in  this  data  file. 

Cll  NSERTS  NDEPTHS  NFEEDS  NFINISHS  NCHIPS 

4  13  6  3 

C12  INPUT  D.O.Cuts  (  used  in  tests  to  obtain  data  )  after  comment  line  C14 
C13  Enter  NDEPTHS  numbers  in  thousandths  of  an  inch  from  the 
C14  smallest  INCREASING  to  the  largest. 

200 

C15  INPUT  FEEDs  (  used  in  tests  to  obtain  data  )  after  comment  line  C17 

C16  Enter  NFEEDS  numbers  in  thousandths  of  an  inch  from  the 

C17  smallest  INCREASING  to  the  largest. 

20  23  27 

C 1 8  INPUT  FINISHes  (  obtained  from  test  data  )  after  comment  line  C20 
CIS  Enter  NFINISHS  numbers  in  micro-lnchs  RMS  from  the 
C 20  smallest  INCREASING  to  the  largest. 

180  250  330  375  500  600 

C21  Enter  SURFACE  FINISH,  cor r es pond  1 ng  to  NFINISHS  numbers,  how  you 

C22  would  like  them  to  be  outputted  in  the  program. 

C 23  Place  each  SFINISH  on  a  seperate  line,  starting  with  the  smallest 

C 2 4  RMS  to  the  largest  RMS  Each  SFINISH  is  allowed  10  characters, 

C25  starting  in  Column  II. 

C26  1  2  3 

C  2  7  67890  1  234567890  1  234567800 

1  25  + 

250 

2  50  + 

250-500 

500 
500  + 

C28  INPUT  chip  Quality  DESCRIPTIONS  on  separate  lines  up  to  50  spaces  wide. 

C29  Enter  NCHIPS  lines  describing  chip  categories  used  in  data  collection 

C30  Enter  the  BEST  first,  the  WORST  last.  Begin  after  comment  line  C30 . 

1  -  good.  all  small  chips,  no  curls 

2  -  fair,  707.  small  chips,  307.  short  curls 

3  -  poor,  bird  cage,  long  curls,  etc. 

C 3 1  INPUT  IDENTIFIERS  for  each  insert  on  separate  lines  up  to  80  spaces  wide, 

C 3 2  followed  by  NOTES  on  test  observations  on  a  line  up  to  80  spaces  wide. 

C33  Begin  input  of  INSERT  IDENTIFIER  lines  after  this  comment  line  C33 . 

401  tool  No.  50143  Sand v l k  415  -  Multi  DNMG-543  (4130:29/30) 

01  Note-  All  Feeds  -  Sparking  and  Some  Nose  Chipping 

402  tool  No.  Valenite  V05  -  ALOX  DNMG-542  (4130:29  30) 

02  Note-  All  Feeds  -  Edge  and  Nose  Chipping 

403  tool  No  Kennametal  950  -  Multi  DNMG-543  (4130'29/30) 

03  Note  0  020'-Spking,  0  023 ' -Spkl ng/Crater ,  0027‘-Spking/Nose  Chipping 

404  tool  No  Carboloy  560  -  Multi  DNMG-543E-48  (4130:29/30) 

04  Note-  0  020'-Nose  Wear,  0  023'  and  0  027‘ -Sparking/Nose  Chipping 


C34 

C35 

n.38  input  below  FINISH,  CHIP,  COEFFICIENT,  and  POWER  data  from  each  test  run. 

C37  Finish  and  chip  Qualities  are  Indicated  by  the  integer  corresponding  to 

C38  categories  entered  above.  These  are  followed  by  the  COEFFICIENT  and  POWER 

C39  (  used  in  the  tool-life,  speed  equation  )  from  the  data  for  each  test. 

C40 

C41  ALL  of  the  above  values  will  appear  on  each  line  of  data  entered  and  be 

C42  READ  from  DO  LOOPs  structured  as  follows  -  - 

C43 

C44  For  each  INSERT  - 
C45  DEPTH  1 

C46  Feed  1 

C47  Feed  2 

C48 

C49  Feed  n  (  over  the  range  of  feeds  input  after  line  C17  above  ) 

C50  DEPTH  2 

C51  Feed  1 

C52  Feed  2 

C53 

C54  Feed  n 

C55  .... 

C56  DEPTH  m  (  over  the  range  of  depths  input  after  comment  line  C14  ) 

C57  Feed  1 

C58 

C59  Skip  a  line  (  or  put  in  a  comment  line  )  before  each  INSERT  data  set. 

C60  Next  INSERT 
C6 1  DEPTH  1 

C62  Feeds 

C 63  etc. 

C64  Skip  etc 
C65 


C66 

Enter 

a  zero  if 

no  data  was 

taken  for 

a  particular  DEPT 

H  and  FEED. 

C67 

Begin 

entrys  after  co mme n t 

line 

C73 

C68 

Put  entrys  in 

7  positions 

o  f 

10  spaces 

each 

as  shown  from  C69  to  C72. 

C69 

1 

2 

3 

4 

5 

6 

7 

C7  0 

67890123456789012345678901234567890123456789012345678901234567890 123456789 

C7  1 

INSERT : 

DEPTH 

FEED 

; 

FINISH  ; 

CHIP 

! 

COEF -  ; 

POWER 

C72 

INDEX  ; 

INDEX 

INDEX 

; 

INDEX 

; 

INDEX 

:  Fi c I ent  ; 

EXPONENT : 

C73 

This 

line  following  comment 

line 

C73  is  the 

SKIP 

1  i  ne 

before 

first  INSERT  401 . 

401 

1 

1 

2 

2 

2 .7433 

.  14 

40  1 

1 

2 

4 

2 

2 .7579 

.  15 

40  1 

1 

3 

3 

2 

2 . 6689 

.  1  2 

skip 

402 

1 

1 

5 

1 

2 . 6047 

.  08 

402 

1 

2 

5 

2 

2 . 6224 

.  1  2 

402 

1 

3 

5 

2 

2 . 6876 

.  22 

skip 

403 

1 

1 

4 

1 

2 . 9276 

.  26 

403 

1 

2 

5 

1 

2  65  1  1 

.  07 

403 

1 

3 

4 

i 

2 . 7067 

.  13 

skip 

404 

1 

1 

4 

1 

2  6395 

02 

404 

1 

2 

3 

2 

2  6430 

07 

404 

1 

3 

5 

1 

2.6139 

08 

B59 


Data  File:  R  ROUDATA 


Cl  ROUDATA!  data  file  9  lor  subroutine  ROUND  called  bv  program  SORT  ! 

C2 

C3 

C4  NOTE  :  Comment  lines  in  the  data  file  are  identified  at  the  left 
C5  The  number  of  comment  lines  and  tneir  placement  are  fixed  by  program 

C6  SORT.  However,  the  content  may  be  altered  or  ommited. 

C7 

C8  INPUT  the  number  of  data  entries  in  the  order  specified 

C9  below  These  numbers  MUST  correspond  to  the  number  of 

C10  entries  for  each  category  in  this  data  file. 

Cll  NSERTS  NDEPTHS  NFEEDS  NFINISHS  NCHIPS 

4  14  6  3 

C12  INPUT  D.O.Cuts  (  used  m  tests  to  obtain  data  )  after  comment  line  Cl  4 
C13  Enter  NDEPTHS  numbers  in  thousandths  of  an  inch  from  the 
C14  smallest  INCREASING  to  the  largest. 

200 

C15  INPUT  FEEDs  (  used  in  tests  to  obtain  data  )  after  comment  line  C17 

C16  Enter  NFEEDS  numbers  in  thousandths  of  an  inch  from  the 

C17  smallest  INCREASING  to  the  latest. 

2  0  2  3  2  7  -  0 

C18  INPUT  FINISHea  (  obtained  from  test  data  )  after  comment  line  C20 
CIS  Enter  NFINISHS  numbers  in  micro-inehs  RMS  from  the 
C20  smallest  INCREASING  to  the  largest. 

160  250  330  375  500  600 

C21  Enter  SURFACE  FINISH,  corresponding  to  NFINISHS  numbers,  how  you 
C 22  would  like  the :r.  to  be  outputted  in  the  program. 

C23  Place  each  SFINISH  on  a  eeperate  line,  starting  with  the  smallest 

C 2 4  RMS  to  the  largest  RMS  Each  SFINISH  is  allowed  10  characters. 

C25  starting  in  Column  11 
C26  1  2  3 

C  2  7  67890  1234567890  1234567890 

125  + 

250 
250  + 

250-500 
500 
500  + 

C28  INPUT  chip  Quality  DESCRIPTIONS  on  separate  lines  up  to  50  spaces  wide. 

C29  Enter  NCHIPS  lines  describing  chip  catagories  used  in  data  collection. 

C30  Enter  the  BEST  first,  the  WORST  last.  Begin  after  comment  line  C30. 

1  -  good,  all  small  chips,  no  curls 

2  -  fair,  707.  small  chips,  30£  short  curls 

3  -  poor,  bird  cage,  long  curls.  etc. 

C31  INPUT  IDENTIFIERS  for  each  insert  on  separate  lines  up  to  80  spaces  wide, 
C32  followed  by  NOTES  on  test  observations  on  a  line  up  to  80  spaces  wide. 
C33  Begin  input  of  INSERT  IDENTIFIER  lines  after  this  comment  line  C33. 

501  Tool  No  51048  Kennametal  950  -  Multi  RNMG  64  (4130'  29/30) 

01  Note  -  0  023'  Edge  Wear,  0  027"  ♦  0.030'  Edge  Wear  +  8parking 

502  Tool  No  VR/Wesaon  680  -  Multi  RNMG  64  (4130:  29/30) 

02  Note  -  0  023'  Sparking,  0.027'  +  0  030'  Edge  Wear  ♦  Sparking 

503  Tool  No.  51049  Carboloy  570  -  AlOX  RNMG  64  -  48  (4130:  29/30) 

03  Note-0.023'  Edge Wear + Spar k l ng ,  0  027'  Sparking,  030'  Ed ge We ar + Spar k 1 ng 

504  Tool  No  51050  Valenlte  V05  -  AlOX  RNMG  64  (4130'  29/30) 

04  No.e-to.023'  Euge  Wear  +  Sparking.  0  027'  ♦  0.030'  Edge  Wear  +  Chipping 


B60 


C34 

C35 

C36  INFUT  below  FINISH.  CHIF.  COEFFICIENT,  and  POWER  data  from  each  test  run 

C 37  Finish  and  chip  Qualities  are  indicated  by  the  integer  corresponding  to 

C38  categories  entered  above.  These  are  followed  by  the  COEFFICIENT  and  POWER 

C39  (  used  in  the  tool-life,  speed  equation  )  from  the  data  for  each  test. 

C40 

C41  ALL  of  the  above  values  will  appear  on  each  line  of  data  entered  and  be 

C42  READ  from  DO  LOOPs  structured  as  follows  -  - 

C43 

C44  For  each  INSERT  - 
C45  DEPTH  1 

C46  Feed  1 

C47  Feed  2 

C48 

C49  Feed  n  (  over  the  rai.je  o *  feeds  input  after  line  Cl  7  above  ) 

C50  DEPTH  2 

C51  Feed  1 

C52  Feed  2 

C53 

C54  Feed  n 

C55  .... 

C56  DEPTH  m  (  over  the  range  of  depths  input  after  comment  line  C14  ) 

C57  Feed  1 

C58 

C59  Skip  a  line  (  or  put  in  a  comment  line  5  before  each  INSERT  data  set 

C60  Next  INSERT 

C61  DEPTH  1 

C62  Feeds 

Cb3  etc. 

C64  Skip  etc 
C65 


C66 

C67 

Enter 

Begin 

a  zero 

entrys 

if  no  data  was 

after  comment 

taken  for 
line  C 73 

a  particular  DEPTH 

and  FEED. 

C68 

C69 

Put  entrys  in 
1 

7  positions 
2  3 

of  10  spaces 

4 

each  as  shown 
5  6 

from  C69  to  C72  . 
7 

C70 

67890123456789012345678901234567890123456789012345678901234567890123456789 

C7  1 

INSERT : 

DEPTH 

!  FEED  1 

FINISH  : 

CHIP 

:  coef-  : 

POWER 

C72 

INDEX  : 

INDEX 

INDEX  : 

INDEX  : 

INDEX 

:  FICIENT  : 

EXPONENT : 

C73 

This 

line  f  o 1 1 owi ng 

comment  line 

C73  is  the 

SKIP 

line  before  first  INSERT  501. 

50  1 

1 

1 

0 

0 

0 

0 

50  1 

1 

2 

1 

1 

3.0161 

.  26 

50  1 

1 

3 

4 

1 

3  0735 

n  i 

.  U  1 

50  1 

1 

4 

4 

1 

2.8183 

.  14 

ek  1  p 

502 

1 

1 

0 

0 

0 

0 

502 

1 

2 

1 

2 

2  .  9370 

.  2  1 

502 

1 

3 

4 

1 

2 . 6681 

05 

502 

1 

4 

5 

1 

2 . 6751 

05 

skip 

503 

1 

1 

0 

0 

0 

0 

503 

1 

2 

3 

2 

2.9025 

.  1  7 

503 

1 

3 

4 

1 

2.7513 

.  07 

503 

1 

4 

5 

1 

2 . 7371 

.  07 

skip 

504 

1 

1 

0 

0 

0 

0 

504 

1 

2 

4 

1 

2 . 9249 

27 

504 

1 

3 

5 

1 

2 .7896 

.  10 

504 

1 

4 

5 

1 

2  70  17 

06 
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APPENDIX  E 

MACHINING  DATA  PROGRAM  FOR  FINISHING/ROUGHING  SIZE 
COATED  CARBIDE  CUTTING  INSERTS  USED  IN  TURNING  OPERATIONS 


This  page  intentionally  left  blank. 
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MACHINING  DATA  PROGRAM 


FOR 

FINISHING  /  ROUGHING  SIZE 
COATED  CARBIDE  CUTTING  INSERTS 
USED  IN 

TURNING  OPERATIONS 


HIT  RETURN  TO  CONTINUE 


EXPERIMENTAL 


EQUIPMENT  —  Single  point  turning  using  a  30/60  horsepower  turret  lathe 

CUTTING  CONDITION  —  Dry  cutting  only  with  fluid  cooled  workpiece 

WORKPIECE  MATERIAL —  AISI  4140  steel,  hot  rolled  tubing  for  finishing  inserts. 

Heat  treated,  Quenched  and  Tempered  to  HRC  31-33 
AISI  4140  &  4130  steel,  hot  rolled  tubing  for  roughing  inserts. 
Heat  treated,  Quenched  and  Tempered  to  HRC  32  -  35  and  29/30  res 

TOOL  MATERIALS  —  CVD  coated  carbide  inserts 

ALOX  :  AL0X  exterior  coating  with  TiC  coat  at  substrate 
interface 

Multi  :  TiN  exterior  coating  with  ALOX  coat  intermediate, 
and  TiC  or  TaC  coat  at  substrate  interface 

TOOL  HOLDERS  —  Negative  5  degree  back  rake  and  side  rake  angles  with  SCEA 
ranging  from  +  15  degrees  to  -3  degrees  depending  on 
shape  of  insert 

ENTER  RETURN  TO  CONTINUE 


TOOL  INSERT  SIZE  —  IC  =  1/2  in.  for  finishing  cut,  DOC  =  0.060  in. 

IC  =  5/8  in.  or  3/4  in.  for  roughing  cut,  DOC  =  0.200  in. 

TOOL  WEAR  CRITERIA  —  Finishing  flank  wear  limits  -  0.010"  ave,  or  0.020”  max. 

Roughing  flank  wear  limits  -  0.015"  ave,  or  0.030"  max. 

MEASURING  PROCEDURE  —  Tool  flank  wear  was  measured  at  predetermined  time 

intervals  (min.)  until  wear  limit  was  reached 


PERFORMANCE  —  Tool  life  (min.)  was  recorded  when  the  flank  wear  limit  was 

reached,  and  the  quality  of  chip  control/form  were  judged  and 
given  a  good,  fair,  or  poor  rating. 

Workpiece  surface  finishes  were  assigned  RMS (micro-inch)  values 
by  visual/tactual  comparisons  using  a  Std.  Ordnance  Finishes 
Set  No.  10. 

Wear  mode  patterns  and  occurance  frequency  were  recorded  per 
insert,  as  was  the  calculation  of  metal  removal  rate. 

ENTER  RETURN  TO  CONTINUE 


Select  Size  of  Insert  to  be  Used: 

1  Finishing  (IC  =  1/2  in.) 

2  Roughing  (IC  =  5/8  in.  OR  3/4  in.) 

E  Exit  from  the  Program 

0 

Select  Insert  Shape 


1  triangular 

2  square 

3  diamond  80  degree 

4  diamond  55  degree 

5  round 

E  Exit  from  the  program. 

0 


E5 


Program  will  search  DATA  for  the  18  DIAM0ND(80  DEG)  inserts  tested. 


301 

tool 

No. 

50743 

TRW  - 

918 

- 

A1  Ox 

CNMG 

432 

302 

tool 

No. 

Carboloy  - 

545 

- 

A1  Ox 

CNMG 

432  - 

48 

303 

tool 

No. 

50741 

Cleveland  - 

CPI 

- 

A1  Ox 

CNMP 

432  - 

43 

304 

tool 

No. 

Cleveland  - 

CPI 

- 

A1  Ox 

CNMG 

432 

305 

tool 

No. 

Carmet  - 

7000 

- 

A1  Ox 

CNMG 

432  - 

E 

306 

tool  No. 

50129 

Sandvik  - 

015 

- 

A1  Ox 

CNMG 

432  - 

61 

307 

tool 

No. 

50742 

Firth  Sterling  CC46 

- 

A1  Ox 

CNMG 

432 

308 

tool 

No. 

Valenite  - 

V05 

- 

A1  Ox 

CNMG 

432 

309 

tool 

No. 

Newcomer  - 

NA02 

- 

A1  Ox 

CNMG 

432 

310 

tool 

No. 

50009 

Kennametal  - 

950 

- 

Multi 

CNMS 

432 

311 

tool 

No. 

Seco  - 

TP  10 

- 

Multi 

CNMM 

432  - 

37 

312 

tool 

No. 

Seco  - 

TP15 

- 

Multi 

CNMM 

432  - 

37 

313 

tool 

No. 

Cleveland  - 

CM3 

- 

Multi 

CNMP 

432  - 

43 

314 

tool 

No. 

Cleveland  - 

CM3 

- 

Multi 

CNMG 

432 

315 

tool 

No. 

50127 

Sandvik  - 

415 

- 

Multi 

CNMG 

432  - 

15 

Enter  any  key 

to  continue  . 

31b 

tool 

No. 

Sandvik  - 

435 

_ 

Multi 

CNMG 

432  - 

61 

317 

tool 

No. 

50740 

VR/Wesson  - 

680 

- 

Multi 

CNMM 

432  - 

E 

318 

tool 

No. 

Valenite  - 

VC7 

- 

Uncoated  CNGG 

-  432 

Enter  any  key  to  continue  . 


U6 


Choose  FIRST  Priority 


Priority 


F  surface  Finish 
Q  chip  Quality 


1  -  surface  Finish 


Type  in  surface  Finish  you  must  have  in 
micro-inchs  RMS 


E7 


You  asked  for  a  125.  micro-inch  finish. 


Surface  Finish  data  from  test  results  that 
are  closest  to  your  specification  are  : 

125  micro-inches  RMS  (  compared  to  125  RMS  ) 

All  results  that  follow  will  be  based  on  this  value. 


Priority  2 

Specify  lowest  chip  Quality  you  can  live  with. 

1  -  good,  all  small  chips,  no  curls 

2  -  fair,  70$  small  chips,  30$  short  curls 

3  -  poor,  bird  cage,  long  curls,  etc. 


Only  data  for  which  chip  Quality  equals  or  exceeds 

2  -  fair,  70$  small  chips,  30$  short  curls 
will  be  considered. 


Type  the  Depth  Of  Cut  you  want  in 
thousandths  of  an  inch. 

(  Finishing  -  DOC  =  0.060"  :  Roughing  -  0.200"  ) 


EH 


You  asked  for  a  0.060  inch  Depth  Of  Cut. 

The  DEPTH  for  which  test  results  are  available 
that  is  closest  to  your  request  is 

0.060  inch 

All  results  that  follow  will  be  based  on  this  value. 

Choose  Feed  OPTION 

1  User  SPECIFIED  Feed 

2  All  available  Feed  DATA  that  satisfy 
surface  Finish  &  chip  Quality  criteria 
will  be  considered. 


Feed  Option  1 


User  Specified  Feed 


Type  the  FEED  you  want  in 


thousandths  of  an  inch  /  rev. 


You  asked  for  a  0.017 


inch  /  rev.  Feed. 


The  FEED  for  which  test  results  are  available 
that  is  closest  to  your  request  is 

0.017  inch  /  rev. 

All  results  that  follow  will  be  based  on  this  value. 


Choose  Tool  Life  OPTION. 

1  user  specifies  Tool  Life 

2  user  specifies  Length  Of  Cut 

3  user  specifies  Surface  Speed 

4  optimize  tool  life  for  Lowest  Cost 

5  optimize  tool  life  for  Maximum  uutpul 

Note:  Results  are  most  reliable  in  the  Tool  Life  range  from 
5  to  25  minutes. 

Computations  are  limited  to  this  range. 


Would  you  like  the  Cost($)  Der  cubic  inch  given  in  the  output? 
(  Y/N  ) 


Type  the  Diameter  Of  Workpiece  in 
inches. 

Type  the  Surface  Speed  you  need  in 
surface  feet  per  minute 


o 

0 


Type  the  Time  allowed  to  Change  Inserts  in 
minutes 

Type  apporoximate  Cost  per  Edge  for  inserts 
dollars  /  edge 

Type  the  Labor  plus  Overhead  rate  in 


0 


dollars  /  hour 


9  Insert  -  Feed  combinations  satisfy  your  specification 

They  will  be  listed  according  tc  their  , 

Metal  Removal  Rates. 

The  first  will  'nave  trie  highest  MRR  . 
decreasing  to  the  last. 


Enter  any 

key  to  see  t 

he  1st  PAGE  of 

INSERTS . 

tool 

No. 

50742 

Firth  3 tori 

.rig  CC4b- 

Ai  Ox 

CNMG 

432 

tool 

No. 

50009 

Ken:  lametal 

-  950  - 

Mult  i 

CNRL> 

432 

tool 

n 

tiu . 

r  r\n  i i  g 

i  -* 

TRW  - 

916  - 

Al  Ox 

CNMG 

432 

tool 

No. 

Newcomer  - 

NAG 2  - 

Al  Ox 

CNMG 

432 

tool 

No. 

o6CG  — 

T?  15  - 

Multi 

CNMM 

432 

tool 

No. 

Carboloy  - 

545  - 

Al  Ox 

CNMG 

432 

tool 

No. 

Valen ite  - 

VC7  - 

Ur.coated  CNGG 

-  43. 

tool 

No. 

V aienite  - 

V05  - 

Al  Ox 

CNMG 

432 

1  •  *>o  i 

No. 

Car  met  - 

7000  - 

A 1  Ox 

CNMG 

^32 

ter  "R" 

'  to 

Return 

tc  Option  Me: 

nu.  Enter  any 

other  key 

to  - 

h;ER  //  OF  OPTION’  WANTED: 


tc  look  at  Output  of  an  Individual  Insert 
to  see  All  inserts  in  order  of  highest  MRR 
to  see  the  list  of  sorted  inserts 
to  see  list  of  originally  inputted  parameters 
to  see  Definitions  of  terms  use]  in  line  of  NOT: 


;tpui 


to  Option  Menu 


6  to  Return 


307  tool  No.  50742  Firth  Sterling  CC46-  A1  Ox  CNMG  432 
07  Note-  0.012"  -  Nose  Notch,  0.017"  -  Slight  Notching 
Chip  Quality  =  1  -  good,  all  small  chips,  no  curls 

Surf.  Finish  =  125  micro  -  inches 

Depth  of  Cut  =  0.060  inch 

Feed  =  0.017  inch  /  rev. 

Tool  Life  =  5.4  minutes 

Surface  3peed=  500.  surface  feet  /  minute 

M.  R.  Rate  =  6.1  cubic  inches  /  minute 

D.  0.  Workpc  =  6.0  inches 

L.  0.  Cut  =  29.  inches 

R.  P.  M.  =  318.  rev.  /  minute 

Cost  =  $  0.19  per  cubic  inch 

Computations  for  user  specified  Depth  Of  Cut  and  Feed  . 

D.  0.  Cut  =  0.060  inch 

Feed  =  0.017  inch  /  rev. 

M.  R.  Rate  =  6. 1  cubic  inches  /  minute 

L.  0.  Cut  =  29.  inches 

Enter  "R"  to  Return  to  Option  Menu.  Enter  any  other  key  to  continue 

310  tool  No.  50009  Kennametal  -  950  -  Multi  CNMS  432 

10  Note-  0.012"  -  Slight  Nose  Notch,  0.017"  -  Slight  Sparking 

Chip  Quality  =  2  -  fair,  10%  small  chips,  3056  short  curls 

Surf.  Finish  =  125  micro  -  inches 

Depth  of  Cut  =  0.060  inch 

Feed  =  0.017  inch  /  rev. 

Tool  Life  =  11.7  minutes 

Surface  Speeds  500.  surface  feet  /  minute 

M.  R.  Rate  =  6.1  cubic  inches  /  minute 

D.  0.  Workpc  =  6.0  inches 

L.  0.  Cut  =  63.  inches 

R.  P.  M.  =  318.  rev.  /  minute 

Cost  =  $  0.18  per  cubic  inch 

Computations  for  user  specified  Depth  Of  Cut  and  Feed  . 

D.  0.  Cut  =  0.060  inch 

Feed  =  0.017  inch  /  rev. 

M.  R.  Rate  =  6.1  cubic  inches  /  minute 

1..  0.  Cut  =  63.  inches 


Enter  "R"  to  Return  to  Option  Menu.  Enter  any  other  key  to  continue 


301  tool  No.  50743  TRW  -  318  -  A1  Ox  CNMG  432 

01  Note-  0.012"  -  Notch,  O.017"  -  Slight  Notching 
Chip  Quality  =  2  -  fair,  7 0%  small  chips,  30j£  short  curls 

Surf.  Finish  =  125  micro  -  inches 

Depth  of  Cut  -  0.060  inch 

Feed  =  0.01?  inch  /  rev. 

Tool  Life  =  5.0  minutes 

Surface  Speeds  483.  surface  feet  /  nL.ute 

M.  R.  Rate  =  5-9  cubic  inches  /  minute 

D.  0.  Workpc  =,  6.0  inches 

L.  0.  Cut  =  26.  inches 

R.  P.  M.  =  507.  rev.  /  minute 

Cost  =  $  0.20  per  cubic  inch 

Computations  for  user  specified  Depth  Of  Cut  and  Feed  . 

D.  0.  Cut  =  G.06G  inch 

Feed  =  0.017  inch  /  rev. 

M.  R.  Rate  =  5.9  cubic  inches  /  minute 

L.  0.  Cut  =  26.  inches 

Enter  "R"  to  Return  to  Option  Menu.  Enter  any  other  key  to  continue 

509  tool  No.  Newcomer  -  NA02  -  A1  Ox  CNMG  432 

O'j  Note-  0.017"  -  Slight  Notch,  0.017"  -  Nose  Wear 
Chip  Quality  =  1  -  good,  all  small  chips,  no  curls 

Surf.  Finish  =  125  micro  -  inches 

Depth  of  Cut  =  0.060  inch 

Feed  =  0.017  inch  /  rev. 

Tool  Life  -  5.0  minutes 

Surface  Speed=  463.  surface  feet  /  minute 

M.  R.  Rate  =  5.7  cubic  inches  /  minute 

D.  0.  Workpc  -  6.0  inches 

L.  0.  Cut  =  25.  inches 

R.  P.  M.  =  298.  rev.  /  minute 

Cost  =  $  0.21  per  cubic  inch 

Computations  for  user  specified  Depth  Of  Cut  and  Feed  . 

D.  0.  Cut  -  O.CbO  inch 

Feed  -  0.C17  inch  /  rev. 

M.  R.  Rate  -  5.7  cubic  inches  /  minute 

L.  0.  Cut  =  25.  inches 

Enter  "H"  to  Return  to  Option  Menu.  Enter  any  other  key  to  continue 


312  tool  No.  Seco  -  TP15  -  Multi  CNMM  432  -  37 

12  Note-  0.017"  -  CE  Cratering  &  Slight  Notch 
Chip  Quality  =  1  -  good,  all  small  chips,  no  curls 

Surf.  Finish  =  125  micro  -  inches 

Depth  of  Cut  =  0.060  inch 

Feed  =  0.017  inch  /  rev. 

Tool  Life  =  5.0  minutes 

Surface  Speed=  447.  surface  feet  /  minute 

M.  R.  Rate  =  5.5  cubic  inches  /  minute 

D.  0.  Workpc  =  6.0  inches 

L.  0.  Cut  =  24.  inches 

R.  P.  M.  =  285.  rev.  /  minute 

Cost  =  $  0.22  per  cubic  inch 

Computations  for  user  specified  Depth  Of  Cut  and  Feed  . 

D.  0.  Cut  =  0.060  inch 

Feed  =  0.017  inch  /  rev. 

M.  R.  Rate  =  5.5  cubic  inches  /  minute 

L.  0.  Cut  =  24.  inches 

Enter  "R"  to  Return  to  Option  Menu.  Enter  any  other  key  to  continue 

302  tool  No.  Carboloy  -  545  -  A1  Ox  CNMG  432  -  48 

02  Note-  0.017"  -  Sparking,  0.017"  -  Slight  Cratering 
Chip  Quality  =  1  -  good,  all  small  chips,  no  curls 

Surf.  Finish  =  125  micro  -  inches 

Depth  of  Cut  =  0.060  inch 

Feed  =  0.017  inch  /  rev. 

Tool  Life  =  5.0  minutes 

Surface  Speeds  426.  surface  feet  /  minute 

M.  R.  Rate  =  5.2  cubic  inches  /  minute 

D.  0.  Workpc  =  6.0  inches 

L.  0.  Cut  =  23.  inches 

R.  P.  M.  =  271.  rev.  /  minute 

Cost  =  $  0.23  per  cubic  inch 

Computations  for  user  specified  Depth  Of  Cut  and  Feed  . 

D.  0.  Cut  =  0.060  inch 

Feed  =  0.017  inch  /  rev. 

M.  R.  Rate  =  5.2  cubic  inches  /  minute 

L  0.  Cut  =  23.  inches 

Enter  "R"  to  Return  to  Option  Menu.  Enter  any  other  key  to  continue 


318  tool  No.  Valenite  -  VC7  -  Uncoated  CNGG  -  H32 

18  Note  -  0.012"  -  Slight  Sparking 

Chip  Quality  =  2  -  fair,  10%  small  chips,  30^  short  curls 

Surf.  Finish  =  125  micro  -  inches 

Depth  of  Cut  =  0.060  inch 

Feed  =  0.017  inch  /  rev. 

Tool  Life  x  5.0  minutes 

Surface  Speed=  '422.  surface  feet  /  minute 

M.  R.  Rate  =  5.2  cubic  inches  /  minute 

D.  0.  Workpc  =  6.0  inches 

L.  0.  Cut  =  23.  inches 

R.  P.  M.  r  269.  rev.  /  minute 

Cost  =  $  0.23  per  cubic  inch 

Computations  for  user  specified  Depth  Of  Cut  and  Feed  . 

D.  0.  Cut  =  0.060  inch 

Feed  =  0.017  inch  /  rev. 

M.  R.  Rate  =  5.2  cubic  inches  /  minute 

L.  0.  Cut  =  23.  inches 

Enter  "R"  to  Return  to  Option  Menu.  Enter  any  other  key  to  continue. 

308  tool  No.  Valenite  -  V05  -  A1  Ox  CNMG  432 

08  Note-  0.012"  -  Slight  Notch,  0.017"  -  Slight  Sparking 
Chip  Quality  =  2  -  fair,  10%  small  chips,  30%  short  curls 

Surf.  Finish  =  125  micro  -  inches 

Depth  of  Cut  =  0.060  inch 

Feed  =  0.017  inch  '  rev. 

Tool  Life  =  5.0  minutes 

Surface  Speeds  4 1 8 .  surface  feet  /  minute 

M.  R.  Rate  =  5.1  cubic  inches  /  minute 

D.  0.  Workpc  =  6.0  inches 

L.  0.  Cut  =  23.  inches 

R.  P.  M.  =  266.  rev.  /  minute 

Cost  =  $  0.24  per  cubic  inch 

Computations  for  user  specified  Depth  Of  Cut  and  Feed  . 

D.  0.  Cut  -  0.060  inch 

Feed  =  0.017  inch  /  rev. 

M.  R.  Rate  =  5.1  cubic  inches  /  minute 

L.  0.  Cut  =  23-  inches 


Enter  "R"  to  Return  to  Option  Menu. 


Enter  any  other  key  to  continue. 


305  tool  No.  Carmet  -  7000  -  A1  Ox  CNMG  432  -  E 

05  Note-  0.017"  -  Slight  Sparking 
Chip  Quality  =  2  -  fair,  70$  small  chips,  30$  short  curls 


Surf.  Finish  = 

Depth  of  Cut 
Feed 

Tool  Life  = 

Surface  Speed= 

M.  R.  Rate  = 

D.  0.  Workpe 
L.  0.  Cut 
R.  P.  M.  = 

Cost  ;  $ 


125  micro  -  inches 
0.060  inch 
0.017  inch  /  rev. 

5.0  minutes 

416.  surface  feet  /  minute 
5.1  cubic  inches  /  minute 
6.0  inches 
23-  inches 
265.  rev.  /  minute 
0.24  per  cubic  inch 


Computations  for  user  specified  Depth  Of  Cut  and  Feed  . 

D.  0.  Cut  =  0.060  inch 

Feed  =  0.017  inch  /  rev. 

M.  R.  Rate  =  5.1  cubic  inches  /  minute 

L.  0.  Cut  =  23.  inches 

Enter  "R"  to  Return  to  Option  Menu.  Enter  any  other  key  to  continue. 


Re-enter  program  at  Options  for  : 

1  Shape  of  Insert  (  the  beginning  ) 

2  Finish  and  Chip  priority 

3  Feed 

4  Tool  Life  /  Length  of  Cut 

5  Repeat  of  Results 


Exit  enter  any  other  key 


This  page  intentionally  left  blank. 


MACHINING  DATA  PROGRAM 


FOR 

FINISHING  /  ROUGHING  SIZE 
COATED  CARBIDE  CUTTING  INSERTS 
USED  IN 

TURNING  OPERATIONS 


HIT  RETURN  TO  CONTINUE 


EXPERIMENTAL 


EQUIPMENT  —  Single  point  turning  using  a  30/60  horsepower  turret  lathe 

CUTTING  CONDITION  —  Dry  cutting  only  with  fluid  cooled  workpiece 

WORKPIECE  MATERIAL —  AISI  4140  steel,  hot  rolled  tubing  for  finishing  inserts. 

Heat  treated,  Quenched  and  Tempered  to  HRC  31-33 
AISI  4140  &  4130  steel,  hot  rolled  tubing  for  roughing  inserts. 
Heat  treated,  Quenched  and  Tempered  to  HRC  32  -  35  and  29/30  res 

TOOL  MATERIALS  —  CVD  coated  carbide  inserts 

ALOX  :  ALOX  exterior  coating  with  TiC  coat  at  substrate 
interface 

Multi  :  TiN  exterior  coating  with  ALOX  coat  intermediate, 
and  TiC  or  TaC  coat  at  substrate  interface 

TOOL  HOLDERS  —  Negative  5  degree  back  rake  and  side  rake  angles  with  SCEA 
ranging  from  +  15  degrees  to  -3  degrees  depending  on 
shape  of  insert 

ENTER  RETURN  TO  CONTINUE 
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TOOL  INSERT  SIZE  —  IC  =  1/2  in.  for  finishing  cut,  DOC  =  0.060  in. 

IC  =  5/8  in.  or  3/4  in.  for  roughing  cut,  DOC  =  0.200  in. 

TOOL  WEAR  CRITERIA  —  Finishing  flank  wear  limits  -  0.010"  ave,  or  0.020”  max. 

Roughing  flank  wear  limits  -  0.015"  ave,  or  0.030"  max. 

MEASURING  PROCEDURE  —  Tool  flank  wear  was  measured  at  predetermined  time 

intervals  (min.)  until  wear  limit  was  reached 

PERFORMANCE  —  Tool  life  (min.)  was  recorded  when  the  flank  wear  limit  was 

reached,  and  the  quality  of  chip  control/ form  were  judged  and 
given  a  good,  fair,  or  poor  rating. 

Workpiece  surface  finishes  were  assigned  RMS(micro-inch)  values 
by  visual/tactual  comparisons  using  a  Std.  Ordnance  Finishes 
Set  No.  10. 

Wear  mode  patterns  and  oecurance  frequency  were  recorded  per 
insert,  as  was  the  calculation  of  metal  removal  rate. 

ENTER  5 RETURN g  TO  CONTINUE 


Select  Size  of  Insert  to  be  Used: 

1  Finishing  (IC  =  1/2  in.) 

2  Roughing  (IC  =  5/8  in.  OR  3/4  in.) 

E  Exit  from  the  Program 

0 

Select  Insert  Shape 


1  triangular 

2  square 

3  diamond  80  degree 

4  diamond  55  degree 

5  round 

E  Exit  from  the  program. 
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© 


Program  will  search  DATA  for  the  5  SQUARE  inserts  tested. 


201 

tool  No. 

50086 

Sandvik 

415 

-  Multi 

SNMi 

643 

-  71 

(4140:  34) 

202 

tool  No. 

Sandvik 

435 

-  Multi 

SNWi 

643 

-  71 

(4140:  34) 

203 

tool  No. 

51046 

Seco 

TP15 

-  Multi 

SNMM 

643 

-  37 

(4140:  34) 

204 

tool  No. 

Widalon  TK15 

-  Multi 

SNMM 

643 

-  6 

(4140:  34) 

205 

tool  No. 

50082 

Sandvik 

S6 

-  Uncoat 

SNMG 

644 

(4140:  34) 

Enter  any  key  to  continue  . 


E21 


Choose  FIRST  Priority 


Priority 


F  surface  Finish 

Q  chip  Quality 


1  -  surface  Finish 


Type  in  surface  Finish  you  must  have  in 
micrc-inchs  RMS 


1-22 


You  asked  for  a  500.  micro-inch  finish. 

Surface  Finish  data  from  test  results  that 
are  closest  to  your  specification  are  : 

500  micro-inches  RMS  (  compared  to  500  RMS 

All  results  that  follow  will  be  based  on  this  value. 

Priority  2 

Specify  lowest  chip  Quality  you  can  live  with. 

1  -  good,  all  small  chips,  no  curls 

2  -  fair,  70$  small  chips,  30$  short  curls 

3  -  poor,  bird  cage,  long  curls,  etc. 


Only  data  for  which  chip  Quality  equals  or  exceeds 

2  -  fair,  70$  small  chips,  30$  short  curls 
will  be  considered. 

Type  the  Depth  Of  Cut  you  want  in 
thousandths  of  an  inch. 

(  Finishing  -  DOC  =  0.060"  :  Roughing  -  0.200"  ) 


K2  3 


You  asked  for  a  0.200  inch  Depth  Of  Cut. 


The  DEPTH  for  which  test  results  are  available 
that  is  closest  to  your  request  is 

0.200  inch 

All  results  that  follow  will  be  based  on  this  value. 


Choose  Feed  OPTION 

1  User  SPECIFIED  Feed 

2  All  available  Feed  DATA  that  satisfy 
surface  Finish  &  chip  Quality  criteria 
will  be  considered. 


Feed  Option  1  -  User  Specified  Feed 

Type  the  FEED  you  want  in 

thousandths  of  an  inch  /  rev. 


You  as.ked  for  a  0.G23  inch  /  rev.  Feed. 

The  FEED  for  which  test  results  are  aval  lab  1c- 
that  is  closest  to  your  request  is 

0.023  inch  /  rev. 

All  results  that  follow  will  be  based  on  this  value. 


Choose  Tool  Life  OPTION. 

1  user  specifies  Tool  Life 

2  user  specifies  Length  Of  Cut 

3  user  specifies  Surface  Speed 

4  optimize  tool  life  for  Lowest  Cost 

5  optimize  tool  life  for  Maximum  Output 

Note:  Results  are  most  reliable  in  the  Tool  Life  range  from 

5  to  25  minutes. 

Computations  are  limited  to  this  range. 


Would  you  like  the  Cost($)  per  cubic  inch  given  in  the  output? 
(  Y/N  ) 


Type  the  Diameter  Of  Workpiece  in 
inches. 


Type  the  Surface  Speed  you  need  in 
surface  feet  per  minute 

Type  the  Time  allowed  to  Change  Inserts  in 
minutes 

Type  apporoximate  Cost  per  Edge  for  inserts  in 
dollars  /  edge 

Type  the  Labor  plus  Overhead  rate  in 


dollars  /  hour 


5  Insert  -  Feed  combinations  satisfy  your  specifications. 

They  will  be  listed  according  to  their  , 

Metal  Removal  Rates. 

The  first  will  have  the  highest  MRR  . 
decreasing  to  the  last. 

Enter  any  key  to  see  the  1 st  PAGE  of  INSERTS . 


204 

tool 

No. 

Widalon 

TK15  - 

Multi 

SNMM 

643 

-  6 

(4140: 

54) 

201 

tool 

No. 

50086 

Sandvik 

415  - 

Multi 

SNMM 

643 

-  71 

(4140: 

34) 

203 

tool 

No. 

51046 

Seco 

TP  15  - 

Multi 

SNMM 

643 

-  37 

(4140: 

34 ) 

202 

tool 

No. 

Sandvik 

455  - 

Multi 

SNMM 

643 

-  71 

(4140 : 

84) 

203 

tool 

No. 

50082 

Sandvik 

36 

Uncoat 

SNMG 

644 

(4  PD: 

34) 

Enter  "R"  to 

Return 

to  Option 

Menu . 

Enter 

any  other  key 

to 

continue. 

ENTER  #  OF  OPTION  WANTED: 

1  to  look  at  Output  of  an  Individual  Insert 

2  to  see  All  inserts  in  order  of  highest  MRR 

3  to  see  the  List  of  sorted  inserts 

4  to  see  list  of  originally  Inputted  parameters 

3  to  see  Definitions  of  terms  used  in  line  of  NOTES  on  output 
6  to  Return  to  Option  Menu 


Widalon  TK15  -  Multi  3NMM  643  -  6  (4140:  34) 

2  -  fair,  70$  small  chips,  30$  short  curls 

Surf.  Finish  =  250-500  micro  -  inches 

Depth  of  Cut  =  0.200  inch 

Feed  =  0.023  inch  /  rev. 

Tool  Life  =  14.1  minutes 

Surface  Speed=  400.  surface  feet  /  minute 

M.  R.  Rate  =  22.1  cubic  inches  /  minute 

D.  0.  Workpc  =  6.0  inches 

L.  0.  Cut  =  83.  inches 

R.  P.  M.  =  255.  rev.  /  minute 

Cost  =  $  0.05  per  cubic  inch 

Computations  for  user  specified  Depth  Of  Cut  and  Feed  . 

D.  0.  Cut  =  0.200  inch 

Feed  =  0.023  inch  /  rev. 

M.  R.  Rate  =  22.1  cubic  inches  /  minute 

L.  0.  Cut  =  83.  inches 

Enter  "R"  to  Return  to  Option  Menu.  Enter  any  other  key  to  continue. 

201  tool  No.  50086  Sandvik  415  -  Multi  SNMM  643  -  71  (4140:  34) 

01  Note-  All  Feeds  -  Sparking,  >  0.023"  -  Nose  Def. 

Chip  Quality  =  1  -  good,  all  small  chips,  no  curls 

Surf.  Finish  =  250  micro  -  inches 

Depth  of  Cut  =  0.200  inch 

Feed  =  0.023  inch  /  rev. 

Tool  Life  =  5.0  minutes 

Surface  3peed=  376.  surface  feet  /  minute 

M.  R.  Rate  =  20.8  cubic  inches  /  minute 

D.  0.  Workpc  =  6.0  inches 

L.  0.  Cut  =  28.  inches 

R.  P.  M.  =  239.  rev.  /  minute 

Cost  =  $  0.06  per  cubic  inch 

Computations  for  user  specified  Depth  Of  Cut  and  Feed  . 

D.  0.  Cut  -  0.200  inch 

Feed  =  0.023  inch  /  rev. 

M.  R.  Rate  =  20.8  cub'c  inches  /  minute 

L.  0.  Cut  =  23.  inches 


204  tool  No. 

04  Note- 
Chip  Quality  = 


Enter  "R"  to  Return  to  Option  Menu. 


Enter  any  other  key  to  continue. 


203  tool  No.  31046  Seco  TP15  -  Multi  3NMM  6*43  -  37  (4140: 

0j  Note-  <  0.023"  -  End  Sparking,  0.027"  -  Screeching 

Chip  Quality  =  1  -  good,  all  small  chips,  no  curls 

Surf.  Finish  =  250-500  micro  -  inches 

Depth  of  Cut  =  0.200  inch 

Feed  =  0.023  inch  /  rev. 

Tool  Life  =  5.0  minutes 

Surface  Speed-  357.  surface  feet  /  minute 

M.  R.  Rate  =  19.7  cubic  inches  /  minute 

D.  0.  Workpc  =  6.0  inches 

L.  0.  Cut  r  26.  inches 

R.  P.  M.  =  227.  rev.  /  minute 

Cost  =  $  0.06  per  cubic  inch 

Computations  for  user  specified  Depth  Of  Cut  and  Feed  . 

D.  0.  Cut  =  0.200  inch 

Feed  =  0.023  inch  /  rev. 

M.  R.  Rate  =  19.7  cubic  inches  /  minute 

L.  0.  Cut  =  26.  inches 

Enter  "R"  to  Return  to  Option  Menu.  Enter  any  other  key  to  continue. 

202  tool  No.  Sandvik  435  -  Multi  3NMM  643  -  71  (4140: 

02  Note- 

Chip  Quality  =  1  -  good,  all  small  chips,  no  curls 

Surf.  Finish  =  250+  micro  -  inches 

Depth  of  Cut  =  0.200  inch 

Feed  =  0.023  inch  /  rev. 

Tool  Life  =  5.0  minutes 

Surface  Speed=  320.  surface  feet  /  minute 

M.  R.  Rate  =  17.7  cubic  inches  /  minute 

D.  0.  Workpc  =  6.0  inches 

L.  0.  Cut  =  23.  inches 

R.  P.  M.  =  204.  rev.  /  minute 

Cost  =  $  0.07  per  cubic  inch 

Computations  for  user  specified  Depth  Of  Cut  and  Feed  . 

D.  0.  Cut  =  0.200  inch 

Feed  =  0.023  inch  /  rev. 

M.  R.  Rate  =  17.7  cubic  inches  /  minute 

L.  0.  Cut  =  23.  inches 

Enter  "R"  to  Return  to  Option  Menu.  Enter  any  other  key  to  continue. 


205  tool  No.  50082  Sandvik  36  -  Uncoat  3NMG  644  (4140:  34) 

05  Note-  0.020"  +  0.023"  -Sparking/Screeching,  0.027"  -Cratering 
Chip  Quality  =  1  -  good,  all  small  chips,  no  curls 


Surf.  Finish  = 

Depth  of  Cut 
Feed 

Tool  Life  = 
Surface  Speeds 
M.  R.  Rate  = 

D.  0.  Workpc 
L .  0 .  Cut 
R.  P.  M.  = 
Cost  =  $ 


250+  micro  -  inches 
0.200  inch 
0.023  inch  /  rev. 

5.0  minutes 

261.  surface  feet  /  minute 
14.4  cubic  inches  /  minute 
6.0  inches 
19.  inches 
166.  rev.  /  minute 
0.08  per  cubic  inch 


Computations  for  user  specified  Depth  Of  Cut  and  Feed  . 

D.  0.  Cut  =  0.200  inch 

Feed  =  0.023  inch  /  rev. 

M.  R.  Rate  =  14.4  cubic  inches  /  minute 

L.  0.  Cut  =  19.  inches 

Enter  "R"  to  Return  to  Option  Menu.  Enter  any  other  key  to  continue. 


Re-enter  program  at  Options  for  : 

1  Shape  of  Insert  (  the  beginning  ) 

2  Finish  and  Chip  priority 

3  Feed 

4  Tool  Life  /  Length  of  Cut 

5  Repeat  of  Results 


Exit  enter  any  other  key 


This  page  intentionally  left  blank. 
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